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Krogramas para o seu 
TK82-C e TK85 



JOGO DE GAMAO 
16K 

Este programa apresenta o tabuleiro no 
video e utilize o etrc rente codlgo de mi 
quma. permit mdo 4 (quatro) nivets de 



MONSTRO DAS TREVAS 
TRIDIMENSIONAL • 16K 

Impressionante jogo onde voce deve 
evilar o monstro das trevas Tudo em 3 
dimensoes 



DEMOLIDOR 

2K 

Jogo ammado. tipo “fllperama" O toga 
dor devera demollr umi parede com 
uma bola que se eocontra sempre em 
movimento. 






ESPAQO 16K 

Consiste de uma frota de naves invaso- 
ras extraterrenas. de&cendo no planeta 
Terra Sua missao e destruir as naves 
invasoras dispondo da arma de raios la 



RALLY 

16K 

Emocionante cornda de rally em urn Is- 
birinto. onde poderio ser testados sua 
habilidade e seus rellexos Para conse- 
guir seu intento. voce devera evitar car- 
ros-ataque e obstaculos em seu trajeto 



TRIDIMENSIONAL ■ 16K 

Jogo em tris dimensoes 0 jogador po 
deta delmir a dllrculdade do Labirinlo 
0 programa apresenta a posicao do |o 
gador em perspective Emqualquermo 
rnento e posstvel pedit auxilio ao com 
put a dor 



MATEMATICA I 
16K/64K 



TK-MAN 

16K 



T-KALC 

16K/64K 

Programs dasenvolvido para calculos 
numerlcos em planllba 0 uauario deft 
ne as colunas as llnhas e as formulas 
aplicadas Similar ao lamoso Vialcelc. 
De grande versatilidade. este programa 
permite a formutacAo de calculos cien- 
titicos e comercials. analise de tabelas 
rrumericas e outras apticacdes 



Analise gratlca de luncdos matemati 



Jogo ammado onde deverio ser apaga 



cas. resolucio de sislemas de eq 
cbcs linear#* 4 16K SI #ouac6#a/64K 



dos todos os pontmhos espalhados • 
urn labirinto to programs contem IS 



Coes linear#* H6K 51 equacoes MK as 
equacoesl. e Calcuto de Integrals defl 
nldos 



urn labirinto to programs contem 15 ti- 
pos de labirinto) Voce sera impedido a 



qualquer custo. por 4 extralerrenos 
ouardiies do labirinto. aue ooderAo se 



guardises do labirinto. que poderao sei 
combatidos com cargas de raios-laser 
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Nem s6 de pao vive o ho mem: de elo - 
gios tamtdm. Atrav6s de nossos corres- 
pondentes e viagens de amigos , varios 
exemplares de MICROHOBBY ja estao cir- 
culando pe/os Estados Unidos e pela Euro- 
pa. Is to sem con tar a /guns assinantes no ex- 
terior: poucos, mas motivo de muito orgu- 
Iho ! 

Pois bem , 6 incrivel a reagao quase una- 
nime de espanto do pessoal de fora ao 
ver a qua/idade grafica e editorial da nossa 
revista (quando dizemos nossa, voce esta 
incluido ! ). 

Is so nos envaidece muito e queremos 
compartilhar com voce este sentimento de 
orgulho. 

Para o aprimoramento desta qualidade 
contribuiram de maneira significativa as 
inumeras cartas con ten do preciosas suges- 
toes e cr ideas, e as colaboraqdes de altis- 
simo nivel de muitos leitores. 

Atrav4s destas cartas, por exemplo, sen- 
timos a necessidade de abrir mais uma se - 
gao: POR DENTRO DO APPLE. Muitis- 
simos leitores tSm um TK em casa, mas 
na firma tern acesso a um UN/TRON, um 
M/CROENGENHO, um MAXXI, etc., to- 
dos compativeis com o APPLE e gostariam 
de receber a/gumas dicas re fe rentes a estes 
outros computadores. 

Outros leitores, pensando talvez numa 
pro fissionalizaqao do HOBBY aprendido 
com o TK, nos so/icitaram informagoes a 
respeito de computadores de maior porte. 
Isto nos motivou, inclusive, a pensar em 
abrir uma segao irma a do APPLE dedicada 
aos computadores compativeis com o 
TRS80. 

Tudo isso, obviamente , represented al- 
go mais para o usuario do TK a quern dedi- 
camos nossa re vista, nao implicando de for- 
ma alguma em perda de qualidade do ma- 
terial que ele recebe para seu pequeno gran- 
de computador. 

Por isso, pedimos: continuem escreven- 
do criticando, cobrando, colaborando, su - 
gerindo, ou ad apenas elogiando: afinal 
nem sd de pao vive o ho mem. . . 
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CARTA DOS 
LEITORES 




Prezados Senhores, 

Em primeiro lugar quero parabenizar a MICROMEGA 
pela excelente publicapao mensal da MICROHOBBY, 
pois 6 uma revista que atende aos anseios de todos os 
usu^rios do TK, destacando-se os programas in^ditos, as 
dicas e as novidades. 

Tenho algumas sugestoes que acredito melhorariam 
ainda mais o nfvel da revista, quesao: poderia ser criada 
uma sepao para solucionar as duvidas dos usu^rios do 
TK, tanto em software como em hardware; gostaria que 
fosse publicado um programa que informasse ao usu^rio 
o quanto de memdria ainda resta durante a digitapao de 
um programa extenso, este programa poderia ser uma 
sub-rotina do programa principal, ao qual o usudrio re- 
correria sempre que achasse necess^rio. 

Desde j3 agradepo a atenpao dispensada, 

Silvio Roberto Hantschei 

Prezado Silvio, 

Uma de suas sugestoes ji foi atendida: aconselhamos 
a leitura do MAP A DA RAM do TK na segao de Dicas e 
da anilise da PITA DO MES. 

Prezados Senhores, 

Estou enviando anexo a esta, um programa com os 
coment^rios, para participar da sepao "Quebra-cabepa". 

Aproveito a oportunidade para solicitar alguns escla- 
recimentos. . . Os programas que recebi na fita-brinde 
necessitam que o computador funcione em "SLOW". 
Meu computador (NEZ8000) s6 funciona em FAST. Na 
revista n9 0, pag. 6 foi anunciado que na revista nP 1 se- 
ria publicado artigo mostrando como acrescentar a fun- 
pao "SLOW" ao computador. Porque nao foi publicado? 
Voces n§o podem enviar instrupoes para eu fazer a mo- 
dificapao? Agradepo resposta, despepo-me. Atenciosa- 
mente. 

Hermelindo Pinheiro Manoel 

Prezado Hermelindo, 

Seu programa e comentarios estao dtimos. Infeliz- 
mente ainda nao foi para esta vez sua publicagao. Conti- 
nue, enviando respostas pois o nfvel desta ultima estava 
muito boa. 

Com relagao ao SLOW no NEZ8000 sugerimos uma 



lida na segao PEQUENOS ANONCIOS: o WILSON DE 
ASSIS pode the fazer esta adaptagao ou o JAN MAR- 
TIN L UND pode Ihe fornecer o esquema. 



Prezados Senhores, 

Assinante que sou de MICROHOBBY, no final deju- 
Iho (28) recebi satisfeito, a fita brinde prometida na as- 
sinatura. 

Achei interessante o jogo da "Pulga", entretanto, por 
mais que tentasse em todos os volumes, nao consegui ro- 
dar o "Simulador". Seguramente nao est3 boa a fita. 

Dois ou tres dias ap6s foi-me entregue pelo Correio, o 
n9 2 da revista (excelente) e nele verifiquei a oppao per- 
mitida aos novos assinantes; o desgravador Twin Go. Li 
tamb£m a informap§o de que o cassete estaria gravado 
dos dois lados, o que tamb6m nao ocorre com o meu co- 
mo poderao constatar. 

Em razao do acima exposto remeto-vos anexa a esta, 
a fita em questao, para que seja examinada. 

Julgando-me no direito de receber um cassete com os 
dois lados gravados bons, como prometido na proposta 
de assinante, permito-me a liberdade de solicitar de 
V.Sas., desde que possi'vel e sem prejuizo para a revista, 
a troca de brinde. Apesar da curiosidade muito grande 
em torno do Simulador que nao conhepo, para as mi- 
nhas aplicapoes, me seria muito mais util o Twin Go. 

Outrossim, aproveito o ensejo para perguntar como 
posso medir a capacidade de minha expansao de 64 K, 
uma vez que, aplicando : 9990 PRINT PEEK 16388 + 
+ 256 * PEEK 16389 — 16384 encontro: 48.896 
Bytes. Certo da compreensSo de V.Sas., atenciosamente. 

Lorenzo C.B. Scat fa Falcao 

Prezado Lorenzo, 

Infelizmente nosso estoque de TWIN GO ji esti intei- 
ramente comprometido e nao podemos efetuar a troca 
solicitada. Podemos, porim, trocar a fita do " Simulador 
de VdO" por outra identica (que voce nos devolveu foi 
testada e nao estava com defeito) ou pela nova fita SAO 
PAULO e MANSAO MALUCA. Escreva-nos comuni- 
cando sua decisao. 

Com relagao i sua expansao para 64K aconselhamos 
a leitura da segao DESGRILANDO. 

O 
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CHEGA 

DE 

PROBLEMAS 

Use Tig Loader 



TIG-LOADER possibilita: 




APENAS: 

CR$ 15.000,00 



• a localizapao do otimo volume do gravador, 
facilitando a operapao LOAD. 

• DUPLICAR qualquer programa, mesmo aque- 
les "fechados". 

• carregar (LOAD) e DUPLICAR simultanea- 
mente. 

• gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 

• monitorar as operapoes LOAD, SAVE ou 
DUPLICAQAO atrav^s de fone. 

• filtrar as interferences eletricas de baixa 
frequence, que sao a causa da maioria 
dos problemas de LOAD/SAVE. 



APLICATIVOS PARA TK 

TIG-SCREEN: vinte e sete rotinas de video, para incrementar seus programas! 
Inversao de vi'deo, moldura, arquivo de imagens, rotapao, scroll em quatro 
direpoes, etc... efeitos visuais incriveis! Em linguagem de m^quina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois 6 so utiliza-lo onde quizer! 

P/ 16K Com manual explicativo Cr$ 8.000,00 

TIG-COMP: coloque, em seus programas em BASIC, a velocidade de 
cddigo de maquina. Rode-os na forma COMPILADA! Simples de usar, 
6 s6 carregar ou digitar o seu programa em BASIC e depois usar 
o TIG-COMP. Pronto! Voce tera o seu programa em linguagem de maquina em 
instantes. 

P/ 16K Com manual explicativo Cr$ 15.000,00 

TIG-SPEED: uma combinapao de soft e hardware, permitindo uma transference 
de dados micro/cassete de 4.200 bauds. Voce podera carregar ou gravar 
16 Kb em 30_segundos! Acrescenta ao micro a funpao VERIFY. Facilimo de 
operar, compoe-se de cassete, interface e manual explicativo. 

P/ 16 e 48K 



Envie seu pedido + cheque nominal cruzado 
Prazo de entrega: 1 5 dias 

Despesas postais inclui'das nos prepos 

Atendemos *omente por carta TIGRE COM. DE EQUIP. P/ COMPUTADORES LTDA. 



Prepo sob consulta. 




Rua Correia Galvao, 224 
CEP 01547 -Sao Paulo - SP 
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SIM, desejo receber os produtos acima ralacionado, para o qua estou anexando o cheque n2 no valor 

de 



NOME 

ENDEREQO 

CEP CIDADE 

PROFISSAO 

MICROCOMPUTADOR 



ESTADO 

DATA NASC L L 
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DESGRILANDO 



A EXPANSAO PARA 64 K 



Prezados Senhores, 

Seria injustiga de minha parte, nao acusar o recebi- 
mento da FITA BRINDE e muito mais, deixar de agra- 
decer-lhes pela mesma. 0 Programa "Simulador de 
VOO" 6 realmente fant^stico. Por isso, e pelo que pro- 
mete a revista, acho que foi um bom negocio tornar-me 
assinante da mesma. 

Mas nos, amadores do Basic-TK precisamos mesmo de 
uma publicagao de apoio, como promete ser a MICRO- 
HOBBY. E no momento, eu, em particular estou pedin- 
do ajuda a voces. Trata-se de saber se existe algum pro- 
grama capaz de calcular com precisao a quantidade de 
membria (em bytes ou Kbytes) ocupada com determi- 
nado programa, pois 6 muito desagrad^vel, ao se digitar 
um programa longo, ver "estourar" a membria do com- 
putador. Assim, podendo "medir" a quantidade de me- 
moria ocupada, torna-se pr^tico e mais f^cil trabalhar, 
mesmo quando se tern uma expansao de memoria de 
64K, como b meu caso. Mas j3 me aconteceu de perder 
programas quase no final do servigo. E si, como se faz? 
Nao adianta "esquentar" a "cuca". 

No meu caso, as coisas sao piores. Explico: no livro de 
Dblio Santos Lima, "45 PROGRAMAS PRONTOS 
PARA RODAR EM TK-82C e NEZ8000" (Livraria Po- 
liedro — 33 edigao), ha na p^gina 4, umas dicas para se 
obter o numero de bytes ocupados pelo programa, que b 
a seguinte: 

PRINT PEEK 16396 + 256 * PEEK 16397 - 

16509 



e hb tambbm varibveis e display: 

PRINT PEEK 16404 + 256 * PEEK 16405 - 16509 

Recomendando usar o comando diretamente como 
indicado, e NEW LINE. No final da listagem do progra- 
ma, b claro, e sem etiqueta. 

Ap6s ter digitado um longo programa, fiz o comando 
conforme indicado e o resultado foi de 15,960 Kbytes. 
Com esse resultado, fiquei tranquilo e prossegui com 
mais umas 8 linhas de programa (+ ou — ) e foi si que 
aconteceu a BOMBA. 0 computador limpou tudo e fi- 
cou a tela com tragos horizontais que depois rodavam na 
tela, etc, etc. Sera que os amigos podem me dizer algu- 
ma coisa, se a EXPANSAO QUE POSSUO £ DE 64K? 
E PORQUE QUANDO 0 PROBLEMA ESBARROU OU 
TENTOU ULTRAPASSAR OS 16K, a memoria estou- 
rou? Ou sera que o programa do DELIO SANTOS LIMA 
nao estb correto? Ou serb que a MICRODIGITAL estb 
trapaceando, vendendo gato por lebre? Gostaria que os 
amigos me ajudassem, pois a membria que vai estourar 
agora, serb com certeza a minha. 

Para uma resposta mais rbpida, mando um envelope 
selado. Mas se considerarem esse caso de importancia 
(pode estar acontecendo com outros TK) podem dar a 
dica atraves da revista, o que seria de grande utilidade 
talvez, para outros usubrios do TK. 

Em proxima oportunidade, voltarei com programas 
de utilidade COMERCIAL, de minha autoria para cola- 
borar com a Revista MICROHOBBY; no momento, os 
mesmos estao sendo testados, afim de evitar que surjam 
problemas ou erros durante a execugao. 

continu* 
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Por falar em teste, pego a atengao dos amigos, em 
especial do Sr. PIERLUIGI PIAZZI, para o fato deque 
estamos aqui desenvolvendo um programa, apelidamos 
provisoriamente de "GH" (Geragao Humana). Parece 
pura maluquice, 6 o que todos pensam (quando pego 
ajuda) quando dizemos que o programa destina-se a 
fazer a PREVISAO DO SEXO DO BEBE que ir3 nascer 
de determinada mae. A ajuda que pedimos, e que as pes- 
soas fornegam as datas completas de nascimento (so da 
MAE, 6 claro), bem como as datas dos filhos que \& hou- 
verem nascido. Agora, enquanto estamos em fase de ex- 
perience com o programa, queremos saber o percentual 
de erros e acertos, em 1000 casos, com um desacerto 
apenas. Para n6s, isso representa alguma coisa. Mas 
precisamos de mais dados, como conseguir? Preferimos 
lidar com pessoas desconhecidas. A pesquisa funciona 
da seguinte forma: A pessoa (Mae) nos fornece o dia, 
mes e ano de nascimento, e as datas tambbm dos filhos 
que \A nasceram e o sexo. 0 computador ir3 entao fazer 
o calculo, que ira confirmar o sexo dos que j3 nasceram, 
dizendo entao qual ser3 o sexo do prbximo que ira nas- 
cer. 0 que realmente nos interessa no momento 6 essa 
confirmagao do sexo dos ]& nascidos. Pois sera esse fndi- 
ce que determinar^ a validade ou nao, do programa. 

Creio que os amigos poderiam dar-nos uma "colher de 
ch3", publicando um anuncio pequeno na MICRO- 
HOBBY pedindo aos usuarios do TK, que enviem nome, 
data de nascimento, do usu^rio, da esposa e dos filhos 
todos — inclusive se houver algum j3 falecido. Ou caso 
de aborto; as datas desses tambbm devem contar. Esse 
material poderia ser enviado para: 

CRM — Cx. Postal: 43 

68250 — Obidos — PA 



ENDEREQO 



IK = 2 l * =1024 




• K 

8K 
16K 
24 K 
32 K 
40 K 
48 K 
56 K 
64 K 



O sistema operational do TK foi projetado, original- 
mente, para nao aproveitar como RAM os 8 Kbytes mar 
cados como RAM 1. A/em disso , as primeiras maquinas 
constru/'das tin ham uma ROM que previa uma expansao 
ate 16K no maximo, ou seja, a RAM 2 que vai at£ o en- 
dereqo 32768. Is to produz tres prob/emas facilmente so - 
lucionaveis: 

A variavei RAMTOP do seu TK assume , provavelmen- 
te, o valor maximo de 32768. Quando voce conecta sua 
expansao de 64K o computador "pensa" que tern ape- 
nas 16K de RAM e por isso acontecem coisas estranhas 
ao atingir o limite de 16K. 

A so/uqao deste prob/ema 6 extremamente simples: 
basta contar ao computador , assim que a memoria foi 
conectada , que ele pode chegar ate o endereqo 65535. 
Isto d feito atraves de um comando direto (conforme in- 
dicado no manual de instruqoes de expansao para 64K). 



POKE 16389,255 



Acho que assim, dentro de pouco tempo teriamos 
mais uma vitbria do BASIC TK, al6m de testar a recepti- 
vidade da nossa nova revista, que tera que crescer mais, 
muito mais ainda, e do que temos certeza, essa 6 a inten- 
gao dos Senhores. 

Roberto R. Malcher (Obidos — PA ) 

Caro Roberto , 

Vamos comeqar pelo fim: voce nao est£ ocupando 
nosso "precioso" tempo. Pelo contra rio\ Voce est^ dan- 
do uma valios/'ssima contribuiqao para a revista e para 
seus lei to res, apresentando os gri/os que voce apresentou. 

Vamos agora ao seu esc/arecimento: 

1) M EDI DA DOS BYTES OCUPADOS PELO PROGRA- 
MA - As dicas fornecidas no livro do DELIO estao mais 
que corretas. Para maiores deta/hes sobre o significado 
do que voce digitou aconse/hamos uma rapida leitura na 
seqao DICAS da materia "O MAP A DA RAM DO TK" 
que foi elaborada por causa da sua carta\ 

Estude com particular cuidado a variavei RAMTOP na 
dica citada para poder entender o esc/arecimento do gri- 
lo seguinte. 

A EXPANSAO PARA 64 K — Quando voce conecta a 
expansao para 64 K no seu TK82, a memdria passa a se 
organizar como segue: 



Ao receber este comando, a variavei RAMTOP, cujo 
valor est£ armazenado nos bytes de endereqos 16388 e 
16389, mude seu valor: 



ANTES DO DEPOIS DO 

POKE POKE 


16388 


0 


0 


16389 


128 


255 


VALOR 

DA 

RAMTOP 


32768 


65280 



Para calcu/ar o valor do RAMTOP, multiplicar o valor 
armazenada no byte 16389 por 256 e somar o valor con- 
tido no byte 16388. 

Se voce quiser, portanto, todos os bytes a que tern di- 
reito, digite tambdm 

POKE 16388,255 

que o valor de RAMTOP sobe de 65280 para 65535. 

continua 
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UVROSPARA TK, Mi Z, CP 



TRiniTA JOGOS 

INCLUINDO PROGRAMAS EM CODIGO LIS 
TADOS POR IMPRESSORA 

JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE , PAREDAO , 
DEMOLIDOR , VELHA, pASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MAG I CO , SENHA , BAN 
CO IMOBILIARIO, BOMBARDEIO, SOM 

POR SOFTWARE, ETC 

LANpAMENTO CR$ 4.000,00 

APLICACOES SERIAS 

0 

FOLHA DE PAGAMENTO, BALANCETE ,CON 
TAS A RECEBER, A PAGAR , CORREQAO 
MONET ARIA DAS CONTAS DO BALANQO, 
CORREQAO DAS CONTRIBUIQOES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCARIA.TABELA PRICE, ESTA- 
TISTICA, CORREQAO DE PROVAS, EDITOR 
DE TEXTOS , RAM TOPER , SUB-ROTINAS 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES, ECONOMIZAN 
DO MEMORIA, ETC... ETC... 

CR$ 4.800,00 

45 PROGRAMAS 

ARQUI VOS , ESTOQUE , PLANO CONTABIL , 
AGENDA TELEFONICA, INVASORES , APAGUE 
A TRILHA, CAQA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS , TABUADAS, 
CONVERSAO DE COORDENADAS, MEDIA, FI 
BONACCI , PROGRESSAO , BIORRITMO , RE 
NUMERADOR DE LINHAS EM CODIGO, ETC. 

7? EDIQAO cr$ 4.000,00 

L J 



MICRON 

ELETRONICA COMERCIO E INDUSTRIA LTDA 
Av S Joao "4 Telefone 22 4194 - S. Jose dos Campos 
Est. de Sao Paulo 



Quando voce for elaborar programas especfficos para 
serem usados com expansao de 64K 6 conveniente colo- 
car os dois POKEs como primeiras instruqoes do progra - 
ma, no caso do usuario ter um dos primeiros TKs. 

O segundo problema 6 referente aos 8K da RAMI. 
0 si sterna operacionai do TK simpiesmente os ignora 
pois eie organ iza a RAM a parti r do endereqo 16384. Is- 
to pode ser considerado, a primeira vista , como uma des - 
vantagem, mas com um pouco de cuca e habilidade pode 
ser transformado numa coisa maravilhosa : Quando se di 
um NEW ou um LOAD, toda a RAM e apagada, mas o 
que estiver na RAM 1 est2 a salvo! Voce pode , por 
exemplo , transferor para este esconderijo um arquivo de 
um pro grama, carregar de fita um segundo programa 
apagando o primeiro e utilizar o arquivo no segundo. Po- 
de armazenar uma duzia de teias para serem chamadas 
oportunamente, e assim por diante. Obviamente a utili - 
zapao mais proveitosa deste nicho de 8K 6 a local izaqao 
de rotinas em linguagem de maquina, expandindo o prd- 
prio si sterna operacionai do TK. 

£ claro que so podemos escrever nestes 8K atrav6s de 
POKE e sd podemos ter atrav6s de PEEK. 

0 terceiro problema e referente ao arquivo da ima- 
gem: e/e nao pode ficar "a cava to" do endereqo 32768. 
Isto significa que e/e nao pode estar armazenado parte 
na RAM 2 e parte na RAM 3. 

Quern des/oca a posiqao do arquivo da imagem na me- 
mdria 6 o comprimento do programa. Quando este 6 
muito extenso, o arquivo pode ficar na posiqao critica 
citada (ta/vez essa seja a causa do seu problema). 

A so/uqao 4 encompridar artificia/mente o programa 
em a/gumas centenas de bytes (com uma I inha REM, por 
exemplo) de maneira a fazer o arquivo de imagem cair 
inteiro na RAM 3. 

3) PROGRAMA COMERC/AL E ESTAT/'ST/CO - Esta - 
mos esperando ansiosamente seu programa COMER- 
C/AL (e os lei tores tambdm), enquanto nadarmos num 
mar de FORCA , SENHA , JOGO DA VELHA e DESE - 
NH AN DON A TELA\ 

Com re/aqao ao programa GH achamos a proposta tao 
interessante e merecedora de apoio que preparamos um 
apelo especial na pdg. 33 . 

Esperamos que estas respostas tenham sido uteis para 
voce e para os leitores com prob/emas an^logos. Um 
abraqo. 

PIERLUIGI P/AZZI 



6 MICROHOBBY 



J 



PROGRAMA DO MES 




Muitos felizes possuidores de um TK82 comegaram a 
ser roi'dos pelo verde microbio da inveja quando viram 
um TK85 gravando e lendo programas a uma velocidade 
incrivel, usando o HIGH-SPEED. Esta inveja se torna 
mais intense quando percebem que nao se trata so de al- 
terar a velocidade de transmissao de dados, mas sim de 
acrescentar filtros e amplificadores. 

Para amenizar esta inveja estamos publicando um "pa* 
liativo": o PENTASPEED. Como o nome sugere, o 
PENTASPEED 6 uma rotina (em ASSEMBLY) que per* 
mite ler e gravar programas com uma velocidade cinco 
vezes maior que o usual. 

Esta velocidade 6 suficiente alta para valer a pena o 
trabalho de inserir a rotina no computador com 16K, 
mas suficientemente baixa para nao exigir nada alem de 
um gravador razoSvel e fita de boa qualidade. 

Inicialmente digitamos o programa A da fig. 1, to- 
mando o cuidado de inserir pelo menos 282 "zeros" na 
linha 1 REM 



PROGRBMR R 

1 REM &000000000000000000000G 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
000 

10 PRINT "ENDERECO INICIRL?" 

20 INPUT E 

30 PRINT E 

4-0 FOR I=E TO 16757 

50 SCROLL. 

60 PRINT I; ” 

70 INPUT P 
80 PRINT P 
90 POKE I.. P 
100 NEXT X 
110 SCROLL 
120 PRINT ‘TIM" 



A velocidade deste programa nao e compativel com 
o HIGH-SPEED, nao permitindo aproveitamento de fi- 
tas gravadas nesta velocidade. Em compensagao ele pode 
ser carregado num TK85, que passar3 a ter 3 opgoes de 
velocidade de transmissao de dados. 

Ao rodar este programa ele pede o enderego inicial. 



Devemos digitar: 



16514 



a seguir toda a lista de cbdigos decimais da fig. 2. 0 pro- 
grama, atrav6s do POKE da linha 90 ir3 substituindo os 
"0" da linha REM pelos bytes da rotina em linguagem 
de m^quina. 

Se voce errar algum byte nao tern problema: digite 
STOP e NEW LINE interrompendo o programa. A seguir 
comande RUN e indique como enderego inicial o ultimo 
em que voce digitou corretamente. 



LI5TRGEM DOS ENDERECOS E CODIGGS 
DECIMRIS DR ROT INR PENTRSPEED 
PRRh INSERIR NR LINHfi 1 REM 



185 14- a 


« 


. 205 


16515. 


m 


. 35 


165 16 * 


* 


. 15 


16517 . 


m 


. 17 


16510 . 


ft 


.6 


16519. 


m 


. 127 


16520 . 


ft 


. 205 


16521 . 


m 


. 43 


16522 . 


• 


. 127 


16523. 


m 


. 2©5 


16524- . 


ft 


. 43 


16525 . 


m 


. 15 


16526 . 


m 


. 201 


16527. 


ft 


.205 


16520 . 


• 


. 35 


16529. 


ft 


. 15 


16530 . 


ft 


. 33 


16531 . 


ft 


.29 


16532 . 


ft 


. 127 


16533. 


• 


.34 


16534 . 


ft 


.22 


16535 . 


ft 


.64 


16536 . 


ft 


. 205 


16537. 


ft 


. 112 


16530 - 


ft 


. 127 


16539. 


ft 


.205 


1654© . 


ft 


. 43 


16541 . 


• 


. 15 


16542 . 


a 


.201 


16543 . 


• 


. 11 


16544 . 


e 


. 11 


16545. 


ft 


. 11 


16546 . 


ft 


. 0 


16547 . 


ft 


. 0 


16540 . 


9 


. 0 


16549. 


ft 


. 0 


1655© . 


ft 


. © 


16551 . 


ft 


. 0 


16552 . 


■ 


.205 


16553. 


ft 


. 16u 


16554 . 


s 


. 3 


16555. 


ft 


. 56 


16556 . 


e 


.249 


16557 . 


ft 


. 235 


16558 , 


a 


. 17 


16559. 


ft 


. 203 


1656© . 


• 


. 18 


16561 . 


m 


.205 


16562 , 


z 


.7© 


16563. 


ft 


. 15 


18564 * 


ft 


. 48 


16565 . 


ft 


. 46 


16566. 


a 


. 16 


16567 . 


ft 


.254 


15568 , 


ft 


.27 


16569 . 


ft 


. 122 


1657© . 


ft 


. 179 


16571 . 


ft 


.32 


16572 . 


& 


. 244 


16573. 


ft 


. 235 


16574 . 


ft 


. 70 


16575 . 


ft 


. 127 


18576 . 


c 


. 203 


16577 . 


ft 


. 126 


16570 . 


ft 


. 35 


16579 . 


# 


. 40 


16500 . 


ft 


. 240 


16501 . 


ft 


.33 


16582. 


a 


. 9 


16503. 


ft 


.64 


16504 . 


ft 


. 205 


16505 . 


ft 


. 70 


15506 . 


ft 


. 127 


16507. 


ft 


.205 


fig. 2 










continue 
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I65S8 . x 


. 252 


16589. 


• 


. 1 


1659® . . 


. 24 


16591 . 


m 


.248 


16592 . . 


. 94 


16593. 


m 


. 55 


16594 . . 


. 203 


16595. 


m 


. 19 


16596 . . 


. 200 


16597 . 


m 


. 159 


16596 . . 


. 230 


16599. 


m 


« 2 


16600 . « 


. 198 


16601 . 


m 


. 1 


16602 . . 


. 79 


16603. 


m 


.211 


16604 . . 


. 255 


16605. 


0 


. 6 


16606 . . 


. 35 


16607 . 


* 


. 15 


16608 . . 


. 254 


16609. 


m 


.205 


16610. . 


. 70 


16611 . 


m 


. 15 


16612 . . 


. 48 


16613. 


m 


. 114 


16614 . . 


.6 


16615 . 


» 


.30 


16616. . 


. 16 


16617. 


m 


.254 


loo lo . . 


■ 13 


16619 . 


m 


. 32 


16620. . 


.238 


16621 . 


m 


. 195 


1S622. . 


.216 


16623. 


m 


. 127 


16624 . . 


.24 


16625. 


m 


.224 


16626. . 


.£05 


16627. 


m 


. 168 


16628 . . 


. 3 


16629. 


m 


.203 


16630. . 


. 18 


16631 . 


w 


.203 


16632. . 


. 10 


16633. 


m 


, 205 


16634 . . 


. 124 


16635. 


• 


. 127 


16636 . . 


.24 


16637. 


m 


.251 


16638 . . 


. 14 


16639. 


m 


. 1 


16640 . . 


. o 


16641 . 


m 


. 0 


16642. . 


. 62 


16643. 


m 


. 127 


16644 . . 


.219 


16645. 


• 


.254 


16646 . . 


.211 


16^4-7 . 


m 


.255 


16648. . 


. 31 


16649. 


m 


. 48 


16650 . . 


. 73 


16651 . 


, 


.23 


16652 . . 


.23 


16653. 


9 


« 5t> 


16654 . . 


.40 


16655 « 


m 


. 15 


16656 . . 


. 241 


16657. 


M 


.241 


16658 . . 


. 186 


16659. 


m 


.210 


16660 . . 


. 229 


166o 1 . 


m 


.3 


16662. . 


.98 


16663. 


m 


. 137 


16664. . 


.205 


16665 . 


m 


. 124 


16666 . . 


. 127 


16667. 


m 


. 203 


16668 . . 


. 122 


16669. 


m 


. 121 


16670 . . 


.32 


16671 . 


• 


. 3 


16672. . 


. 190 


16673. 


m 


.32 


16674 . . 


.214 


I6d7d • 


m 


.35 


16676 . . 


.23 


16677. 


m 


.48 


16678. . 


.241 


16679. 


m 


.253 


16680. . 


.52 


16fc>81 . 


m 


.21 


16682 . . 


.33 


16683. 




a 


16684 . . 


.64 


16685. 


m 


.80 


16686. . 


.205 


16687. 


m 


. 124 


16688. . 


. 127 


16689 . 


m 


. 113 


16690. . 


.205 


16691 . 


m 


.252 


16692. . 


. 1 


16693. 


0 


.24 


16694 . . 


.246 


16695. 


0 


.213 


16696 . . 


.30 


16697. 


m 


.49 


16698. . 


.6 


16699. 


m 


. 14 


16700. . 


.29 


16701 . 


m 


.219 


16702. . 


.254 


16703. 


m 


.23 


16704 . . 


.203 


16785 . 


m 


. 123 


16706 . . 


. 123 


16707. 


m 


.56 


16708 . . 


.245 


16789. 


m 


. 16 


16710. . 


.245 


16711 . 


m 


.209 


16712 . . 


.32 


16713. 


m 


. 4 


16714 . . 


.254 


16715. 


m 


• 8d 


16716. . 


.48 


16717. 


9 


. 178 


16718. . 


.63 


16719 . 


a 


, 203 


16720 . . 


. 17 


16721 . 


c 


.43 


16722. . 


. 173 


16723. 


■ 


.201 


16724 . . 


. 122 


16725. 


m 


. 167 


16726 . . 


.40 


16727. 


m 


. 137 


16728 . . 


.207 


16729. 


m 


. 12 


16730. . 


. 167 


16731 . 


m 


• 6 


16732 . . 


.80 


16733 . 


m 


. 16 


16734 . . 


.254 


16735 . 


m 


. 195 


16736 . . 


. 110 


16737 . 


m 


. 127 


16738 . . 


.33 


16739. 


m 


. 130 


16740. . 


.64 


16741 . 


x 


. 17 


16742 . . 


.0 


16743. 


0 


. 127 


16744 ■ x 


. 1 


16745. 


0 


.224 


16746 . . 


.0 


16747. 


0 


.237 


16748 . . 


. 176 


16749 . 


m 


.33 


16750 . . 


.255 


16751 . 


m 


. 126 


16752 . . 


.34 


16753. 


m 


. 4 


16754 . . 


.64 


16755. 


0 


. 195 


16756 . . 


. 195 


16757. 


0 


.3 



Ao terminar esta tarefa apague todas as linhas do pro- 
grama A, menos a 1 REM, agora toda cheia de uma es- 
tranha sequencia de caracteres. A seguir digite as linhas 
de 10 a 70 do programa B (fig. 3). 



PROGRAMS B 



1 REM LN F®_N F?TON L 

N 7 7 5 1®5- RNDLN ?fp_N F?TRN 

LN ST'S RRND FOR )RCS >LN ??KI 
( RETURN . '?®4- POKE LN '"digACS RNDL 
N • f iLN UNPLOT ■ .✓ SAUE 7RRCS < COS 
B NEW ■LEN ■ *?PEEK COPY J * 7 ( RETU 
RN LN ??K?^2 ( RETURN $4 INPUT 
*Bk STEP LN ST^CS > RCS "LN C 

LS Y»<= RETURN PEEK COPY 3K? 

**SC< LET LET fiRBS FAST *??LN Tffl 
RCS '?'?4.“S4 1 CHR* 7*K LET CLERR 0>! 



taRND^LN TffiTLN UNPLOT ■ ✓ PLOT STR 
% 2L„": 1 < = RETURN ifiC5 ??S PRINT 
t PRINT SGN 4-* RETURN ?KfflZRC S j K 
SSTRN ^gCJfilNT £1W»T ( RETURN T^flfSfcR 
ND) W STEP GOSUB £*5 COPT' "©006 
00000000000000000000000000000000 
00 

10 SRUE "PENTRSP EEP" 

SO PR INT TRB 6; 



30 PRINT ,,,,,, "Ps GRRURR DIGI 

TE RRND USR 32512" 

4© PRINT "P/CflRREGflR DIGITE RR 
ND USR 32525” 

50 PRINT "PRRfl GURRDRR ESTR RO 
TINR NO FIM DR RAM DIGITE OURLO 
UER LETRR” 

60 PAUSE 40000 

70 RRND USR 16738 

Prepare uma boa fita, coloque o gravador na posipao 
gravar e comande RUN. 0 programa B vai se gravar 
(devido a linha 10) e a seguir ]& se inicia (fig. 4). 



P/ GRRURR DIGITE RRND USR 32512 
P/'CARREGAR DIGITE RRND USR 32512 
PRRR GURRDRR ESTR ROT INR NO FIM 
DR RAM DIGITE QURLQUER LETRR 

Ao digitar qualquer letra o programa abaixa o valor 
da RAMTOP de uns 250 bytes e transfere para esta re- 
giao reservada o codigo de maquina contido na linha 
1 REM. A seguir o programa se autodestroi, e o compu- 
tador fica com a RAM aparentemente vazia. Nao se as- 
suste: a rotina est3 escondidinha no topo da RAM e a 
unica maneira de tir^-la de 12 2 desligar o computador. 
Pegue uma qualquer de suas fitas j2 gravadas e passe um 
programa para o computador. A seguir coloque uma fi- 
ta virgem no gravador, digite: 

RAND USR 32512 

Coloque a fita rodando com o gravador em REC e di- 
gite NEW LINE. Seu programa est2 sendo passado para a 
fita em PENTASPEED. 

Rebobine a fita, digite: 

RAND USR 32525 
e NEW LINE 

Ao passar da fita para o computador um programa de 
5 minutos demorar2 apenas 1 minuto. 

O 
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CURSO 

aula 4 



DE BOHOlcD TK 



Atb agora, aprendemos a programar o computador pa- 
ra que ele executasse vbrias ordens seguidas; entretanto, 
durante a execu<pao, ele so escrevia coisas na tela, fazia 
cblculos ou "buscava” coisas em suas membrias; em 
outras palavras, ele apenas "falava” mas sem "escutar"! 
£ como, por exemplo, dizer a uma pessoa: (programb-la): 
fale os 10 primeiros numeros pares! Durante a "exe- 
cupao" da ordem, ela nao necessitarb nos ouvir, apenas 
irb dizer os numeros. Agora experimente dizer a essa 
pessoa: eu quero que voce some 2 numeros! Ora, o que 
ela irb fazer? Ela terb que PERGUNTAR quais sao os 
numeros e "parar sua execupao" atb que voce diga a ela 
quais sao os mesmos! Analogamente, no computador, 
existe uma instrupao que faz com que, durante a exe- 
cupao, ele PARE e espere que voce coloque um numero 
atravbs do teclado! Esta instrupao estb na tecla I: 
INPUT. Vamos entao fazer com que o computador nos 
pergunte 2 numeros e a seguir os some: 



10 INPUT R 
20 INPUT B 
30 PRINT R+B 



CONVERSE 
COM 

PROFISSIONAl: 



SOFTWARE 

Linha completa 
de software aplicativo 
Desenvolvimento de software 
especifico para sua 
necessidade 
Linha completa de programa 
para TK e CP-200. 



SHOW ROOM E VENDAS: 



ASSESSORIA 

[Antes da escolha de seu micro, 
nos digaqual o seu problema. 
N6s o orientaremos 
na escolha do micro CERTO 
para voce 
ou sua empresa. 



CURSOS 

BASIC I, BASIC AVANQADO 

- Excelente material did&tico, 
no m&ximo 10 alunos 
por classe e 1 micro 
para cada 2 alunos. 



JDoflTfl SOLUTION 

VENHA NOS VISITAR 

AV EUSEBIO MATOSO, 654 • CEP 05423 • SP 
BEM EM FRENTE AO SHOPPING CENTER ELDORADO 

FONE: 813-3355 



Execute o programa. A tela fica em branco apenas 
com o cursor Q ; nao entre em panico. Ele estb obede- 
cendo suas ordens. A primeira instrupao diz para ele 
PARAR e esperar que algubm digite um numero para a 
seguir colocb-lo na varibvel A na membria. Coloque 
entao o numero 50 e a seguir NEW LINE. Novamente 
a tela fica em branco; ora, ele estb agora esperando o se- 
gundo valor. Digite 20 e NEW LINE; finalmente obtere- 
mos a soma. . . Note entretanto que a tela em branco b 
um inconveniente que pode confundir bastante, princi- 
palmente se o programa for razoavelmente complicado. 
Portanto, b util escrever algumas "mensagens”, princi- 
palmente se o seu programa irb ser usado por alguma 
outra pessoa; essas mensagens NAO interferem na Ibgica 
do programa, apenas ajudam a sua INTERPRETACAO 
durante a EXECUQAO do mesmo; experimente entao 
o seguinte: 



4 PRINT 

nc,*' 

5 PRINT 
1® INPUT 
18 PRINT 
20 INPUT 
25 PRINT 
30 PRINT 



-EU UOU SOMflR 2 NUMER 

- ©URL O PRIHEIRO 
R 

- 0URL O SEGUNDO 
B 

-R SOMR E* 

R+B 



Execute o programa. Note que as linhas 4, 8, 18 e 25 
sao apenas MENSAGENS. Acrescente entao as seguintes 
linhas: 



5 PRINT 
12 PRINT R 
14 PRINT 

21 PRINT B 

22 PRINT 



Supondo, por exemplo, que voce entre com os nume- 
ros 60 e 40 teremos na tela: 



EU UOU SOMRR 2 NUMEROS 

CURL O PRIMEIRO *? 

60 

QURL O SEGUNDO T 
40 

R SOMR E" 10® 



Como voce faria para os numeros 60 e 40 aparece- 
rem nao em baixo da pergunta mas IMEDIATAMENTE 
ao lado da mesma? E para que eles aparecessem na mes- 
ma linha da pergunta mas na METADE da tela? (Lem- 
bre-se do efeito do e da basta coloc^-los con- 
venientemente nas instrupoes 8 e 18). 

Tenha entao sempre em mente que, ao programar um 
computador, 3 c^rebros estao em jogo: o seu, o do com- 
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PULO 

DOSAPO 

ifS&jtfl'- 

PQNTOS 4-360 MR IMP 4 4 gg 3 RPQS 1 

* rrmcm 



000«» 0000 OC^O 0000 



► ♦•*■ 000O ♦♦♦♦ O000 




0 mais recente lancamento da MULTISOFT para o 
seu TK (TK82, TK83 e TK85). 

Emocionante aventura onde vocfe conduzira o 
sapo desde o ponto de partida, at6 uma casa vazia. 

Voc& dever& cruzar a autoestrada, sem ser 
atropelado e. em seguida. atravessar um caudaloso 
rio pulando sobre tartarugas e troncos que passam flutuando. 
Para adquiri-lo e entrar para a galeria de recordes do 
pulo do sapo basta enviar carta com seu nome e 
enderegos completos. anexando cheque de Cr$ 
5.690,00, nominal £ MULTISOFT INFORMATICA LTDA. • 
Cxa. Postal 54.121 - CEP 01296 - S3o Paulo - SP 



A 



t \ 




^ INFORMATICA LTOaV J 




putador e o da pessoa que ira usar o programa. £ por 
isto que as "mensagens" sao fundamentals. 

Vamos agora apresentar outra KEY-WORD: trata-se 
do CLS (tecla V); acrescente a linha: 



23 CLS 



0 que acontece? Esta instrugao APAGA tudo o que 
havia sido escrito na tela at6 entao. Note entretanto que 
fica diffcil ver o efeito da instrugao PRINT B pois apaga- 
mos a tela logo em seguida. Para evitar isto, seria neces- 
s^rio uma "espera" ou pausa antes que ele executasse 
essa instrugao; acrescente entafo a linha: 

24 PAUSE 120 (LETRA H) 



e veja o que ocorre. Esta instrugao acrescenta uma 
PAUSA ao programa onde para cada SEGUNDO de es- 
pera devemos adicionar 60; no caso, a pausa A de 2s; se 
eu quizesse uma pausa de 3.5s deveria colocar PAUSE 
210. Note que durante um INPUT quando o computa- 
dor est2 "parado" esperando um numero, nao adianta 
fazer BREAK para apagar o programa, pois ele \A esta 
parado; assim, se voce quer interromper, devera pres- 
sionar STOP (SHI FT e tecla A) e a seguir NEW LINE. 

Cabem aqui algumas informagoes quanto a precisao 
do computador; ele s6 reconhece 8 dfgitos diferentes de 
zero. De fato, usando o programa anterior, tente somar 
111111111 com 0; voce vera que A apresentado um re- 
sultado ERRADO pois estamos acima da precisao para 



este tipo de NOTAQAO de numeros; note entretanto 
que se o resultado tiver zeros no final ele A capaz de re- 
presentar atA a 13? casa; some 999.999.999.999 com 1 e 

0 resultado estara correto. Se quisermos numeros maio- 
res, outra notagao tera que ser utilizada; tente somar: 
9.999.999.999 com 1 ; voce obtera 1 E + 13 que significa 

1 x 1 0‘ 3 ; assim o computador A capaz de interpretar nu- 
meros com mais de 8 digitos desde que usemos esta no- 
tagao. 0 mesmo A vaiido para numeros muito pequenos. 
0 maior numero em valor absoluto que o computador 
TK aceita A: 

1.70141 18E + 38 

e o menor em valor absoluto (o mais proximo de zero): 
2.9387359E - 39 

Vamos fazer um programa que utilize as instrugoes 
aqui apresentadas, e mais uma fungao que esta na tecla 
G (ABS) que serve para calcular o valor ABSOLUTO de 
um numero, ou seja, seu mbdulo; para entende-la, expe- 
rimente antes fazer este pequeno programa: 

10 POR 1=10 TO -10 STEP -1 
20 PRINT TAB fABS I) ; I 
30 NEXT I 



Que tal o efeito? 



Feito isto, iremos entao fazer um programa para 
''treinar a tabuada”, que pergunte para voce o resultado 
de uma operagao de multiplicagao usando numeros 
"centrados" por ele escrevendo a sua resposta, a respos- 
ta do computador e a diferenga entre elas em valor 
absoluto. Vamos fazer com que ele pergunte tamb§m 
qual o valor maximo dos numeros que ele deve multi- 
plicar: 



10 RAND 

" EU UOU PERGUNTAR ft u 

Ole qu&ntq uale o PRODUTO DE 2 
NUMEROS" 

"OUftL O NUMERO MAXIMO 
DUE EU POSSO USAR 
40 INPUT MftX 
50 CLS 

55 f- FT H=IMT (24MAX*RND + l.t —MftX 
ZS L£ T B = INT 1 2 iMAX *RND +1 J -MAX 
S0 PRINT ft; "X"; B; 

-90 INPUT P 
100 PRINT 

110 PRINT "SUA RESPOSTA “ : P 
120 P-RJNT "RESPOSTA CORREIA •*; ft 
•SB 

130 PRItTI 
140 PRINT 
SB> 

150 PAUSE IS© 

1S0 CLS 
170 GOTO 20 



•DIEERENCfi (P-R 



Note que na linha 170 foi usada uma nova 
KEY-WORD: GOTO (tecla G) que significa para" 
dada instrugao (no caso 20); seu efeito A an^logo ao 
RUN so que ela NAO executa um CLEAR. De fato, pare 
o programa (usando BREAK ou STOP conforme o caso) 
e, execute-o novamente; s6 que, ao inv^s de fazer RUN e 
NEW-LINE faga GOTO 10 e NEW LINE! 

Preste ateng§o na estrutura utilizada nas linhas 60 e 
70 para "gerar" numeros positivosou negativoscom va- 
lor absoluto menor do que o valor maximo! o 
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QUEBRA-CABEQA ^ International 



Este mes: 




AS IDADES DAS TRES FILHAS 



0 quebra-cabega deste mes consiste em fazer com 
que, de algum modo, o TK resolva urn problema bas- 
tante conhecido. 

Urn matematico (A), propos a um de seus amigos, 
tambem matematico (B), que ele "adivinhasse" as idades 
de suas tres filhas. Entre eles transcorreu o seguinte dia* 
logo. 

Matematico A: "0 produto das idades de minhas tres fi- 
lhas e igual a 36". 

Matematico B: "S6 com essa informagao e impossivel 
saber quais as tres idades". 

Matematico A: "Esta bem. Saiba, entao que a soma das 
idades das minhas filhas 6 igual ao numero daquela resi- 
dence" (Disse isso apontando para uma casa proxima de 
onde se encontravam). 

Matematico B: "Ainda assim, me e impossivel precisar as 
idades". 

Matematico A: "Vou Ihe dar uma ultima pista. A mais 
velha de minhas filhas danga "ballet". 

0 outro matematico pensou durante algum tempo e 
finalmente afirmou: 

Matematico B: "Com certeza, as idades de suas filhas 
sao . . . " 

Obviamente, as idades devem ser consideradas como 
numeros inteiros e em anos. Assim, uma pessoa com 18 
anos e 6 meses de vida tern idade igual a 1 8 anos. 

A exemplo do Quebra-Cabega do nP 2 (Verdadeiro 
ou Falso), nao estamos interessados nas tres idades das 
filhas do Matematico (A), mas sim num programa que as 
obtenha. Aqui, tambem, 6 conveniente utilizar preferen- 
cialmente as instrugoes e comandos destinados a anaiises 
logicas: 

(IF . . . THEN, OR, AND, NOT, > < = , etc.). 

O 



Vou F? 
solugao 

Renato da Silva Oliveira 

Para um ser humano, talvez a forma mais f2cil de re- 
solver esse problema seja escolher entre as dez (10) as- 
sergoes as duas mais antagonicas, (isto 6, as duas cujos 
valores V ou F, sejam necessariamente diferentes) eatri- 
buir a uma delas um valor. A partir da f, obter os valores 
das demais assergoes e verificar se ha coerencia entre 
elas. Passando as vistas pelas dez afirmagoes a dupla es- 
colhida provavelmente ser3 formada pelas assergoes 9 e 
10. De fato, se a assergao 9 for verdadeira (valor V) a as- 
sergao 10 ser3 falsa (valor F); e, se a assergao 9 for falsa 
(valor F) a assergao 10 serd verdadeira (valor V). 

Para facilitar a an^lise das assergoes, nos as designare- 
mos convenientemente por A(1 ), A(2), . . . at6 A( 1 0) se- 
guindo a mesma ordem em que elas sao apresentadas. 

Pode-se fazer, por exemplo: 

A(10) = F ; portanto . . . 

A(9) = V ; portanto . . . 

. . . e assim por diante, at6 concluir algo a respeito da 
coerencia ou nao dos valores dados a assergoes. 

No exemplo acima, em que supos-se A(10) = F, che- 
ga-se a uma incoerencia, o que mostra que, se uma $o- 
lugao, nela o valor de A(10) tern que ser V. Tomando-se 
A(10) = V obt6m-se o resultado coerente mostrado 
abaixo: 

A(1 ) = V A(6) = F 

A(2) = F A(7) = F 

A(3) = V A(8) = V 

A(4) = F A(9) = F 

A(5) = V A(10) = V 

A solupao do problema, entretanto, nao e solugao do 
"Quebra-Cabega". 0 que queremos 6 um programa para 
que o TK encontre a solugao! 

Podemos pensar em fazer um programa que "instrua" 
o TK para que ele proceda de modo an^logo ao de um 
ser humano, entretanto, al6m de extremamente comple- 
xo, um programa desse tipo deve ser deveras extenso e, 
por conseguinte, levari muito tempo para ser rodado 
completamente. Provavelmente, tanto para o "micro" 
como para seu programador, o processo mais f^cil e r&- 
pido e, sem nenhum paradoxo, o mais simples e traba- 
Ihoso . 

continue 



f 
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(Por exemplo: Fazer mi! contas de somar e mais sim- 
ples e mais trabalhoso que fazer uma unica extra'gao 
de raiz quadrada). 

Tal processo consiste apenas em atribuir a cada asser- 
gao urn valor (V ou F) e para cada sequencia de valores 
dados a A(1), A(2), . . A(10) verificar se hi ou nao 

coerencia. As assergoes sao em numero de dez (10), cada 
uma podendo assumir dois valores (V ou F), portanto o 
numero de sequences possiveis & 2 ia = 1024 (desde 
A(1 ) = A(2) = . . . = A( 1 0) = Fat6 A(1) = A(2) 

...= A(10) = V). , 

0 que o TK terS que fazer S gerar cada uma das 1024 
sequences de valores para as assergoes e testS-las uma 
por uma, mostrando na tela apenas as que forem coeren- 
tes e, portanto, solugoes do problema. 0 fluxograma a 
ser seguido deve ser algo semelhante ao mostrado 
abaixo: 




TODAS AS % 

1024 SEQUCNCIAS* 
POSSIVEIS FORAM 
GERADAS? > 



£ COERENTE? 



GERE UMA SEQUENCIA DE 
DEZ VALORES (V ou F) 



ATRIBUA ESSES VALORES 
AS DEZ ASSERpOES 



VERIFIQUE A COERENCIA 



MOST RE A 
SEQUENCIA 
NA TELA 



FIM 



INICIO 



Ao tentar traduzir o fluxograma para a linguagem 
BASIC encontramos maior dificuldade quando temos 
que escrever o conteudo das assergoes numa linguagem 
conveniente para o TK. Uma solugao possivel S aprovei- 
tar as proprias caracteri'sticas do micro e chamar de 1 
(urn) ao valor V e de 0 (zero) ao valor F, utilizando prin- 
cipalmente as instrugoes e comandos destinados a exe- 
cugao de operagoes Idgicas (IF . . . THEN; OR; AND; 
NOT; > etc . . .). 

Abaixo encontra-se listado um dos possiveis progra- 
mas obtidos como sugerido pelo fluxograma. Digite-o 
e verifique voce mesmo o resultado. Se voce tern ape- 
nas 2 Kbytes de RAM, nao se assuste com o fato de a I is- 
tagem confinar-se ao topo da tela. Isso acontece por que 



esse programa ocupa 1688 bytes e nao sobra lugar na 
memoria para o restante da listagem ser mostrado na te- 
la. 0 principal inconveniente desse programa 6seu tem- 
po de processamento (cerca de 25 min). Como sugestao, 
ponha-o para rodar e v3 tomar um cafe e ler um pouco 
de jornal, superando engenhosamente o inconveniente! 



10 


REM 


“U OU F" 


20 


FRST • 


30 


LET 


D=URL ”7" 


40 


DIM 


R C 1©) 


50 


FOR 


N=PI/PI TO URL "2**10' 


6© 


LET 


M =N —PI/P I 


70 


FOR 


K=PI/PI TO URL "10** 


60 


LET 


B=M/2 


90 


LET 


R C K ) =M —2 * INT l 6 ) 


100 


LET 


M = I NT (B) 


110 


NEXT 


K 


200 


DIM 


S ( 10) 


210 


FOR 


X=P I/PI TO URL “10’‘ 


220 


LET 


o=pi-pi 


23© 


FOR 


L=PI/PI TO X 


240 


LET 


0=0 +R (L) 


25© 


NEXT 


L 


260 


LET 


5 (X) =Q 


270 


NEXT 


X 


300 


DIM 


U C 10) 


310 


LET 


U (PI/PI) = ( (S (4) =PI/PI) 


OR (S (6) = 


3) OR (S (6) =5) ) 


320 


LET 


U C2) = (S (3) < (3(10) -S (6) 



) 



330 LET U(3) =(SU0) <=5) 

34-0 LET U(4)=C( 5C3) =3) OR CS t4J 
-SCI) =3) OR (S (5) -5 (2) =3) OR (SC 
6 ) -S ( 3 ) =3 ) OR (5(7) -S(4) =3) OR C 
5(8) -5(5) =3) OR (S (9) -S (6) =3) OR 
CS ( 10) -5 (7) =3) ) 

350 LET U(5) =(5(10) >=5) 

360 LET U(6) =(R(7) 

3*70 LET U (7) = CR (6) + R (3) 4-R (10) =P 
X /P X ) 

3S0 IF R (10) =PI/PI THEN LET UC6 
) = ( (ft (6) =PI -PI) RND (fl(9) =PI-PI) 



3S1 
) = PI 
390 
2) +R 
) OR 
) = 2 ) 
400 
410 
420 
4-30 
440 
450 
460 
C.. D 



IF 
/P I 
LET U 
(4) =PI 
( CR (2 
) ) RND 
LET U 
FOR R 
IF U ( 
GOTO 
NEXT 
FOR C 
IF U ( 
: "U" 



RC10) =PI-PI THEN LET UC6 



(9) 
-PI 
) =P 
(R 
( 10 
=PI 
R) = 
50© 
R 

= PI 
C) = 



= ( ( (S (2) =2) OR ( CR C 
) RND (R (5) -FR (6) =2) 
I-PI) RND (R ( 3) +R C 4- 
(6) =PI/PI) ) 

) = (R (9) =PI-PI) 

/PI TO URL ** 10" 

R CR) THEN GOTO 440 



/PI TO URL 

PI /PI THEN PRINT RT 



470 IF U ( C ) =P I — P I THEN PRINT RT 
C ,D; ** F “ 

460 NEXT C 

490 LET D=D+URL , *2“ 

500 NEXT N 

510 FOR Z=PI/PI TO URL '-g" 

520 PRINT RT Z,PI/PI;"R( " ;Z;") 



521 NEXT Z 

525 PRINT RT URL " 10“ , PI /PI ; "fl ( 
10 ) =" 



As linhas de 50 a 1 1 0 geram uma sequencia de 10 va- 
lores. As de 210 a 270 apenas auxiliam na an^lise da 
coerencia. As linhas de 300 a400sao as assergoes trad u- 
zidas e escritas de forma conveniente (verifique como!) 
para o TK. As linhas de 410 a 440 testam a coerencia e, 
finalmente, as linhas de450 a 525 apresentam o(s) re- 
sultado(s)** na tela. 



** (Nada garante que haja apenas uma solugao a prin- 
cfpio!) 
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PROGRAMA DO LEITOR 




Bernardo C. Stein 



0 seu computador TK82 ou TK85 pode ser usado 
como um ef iciente professor. 0 Programa que apresen- 
tamos adiante foi criado para auxili4-lo a memorizar pa- 
res de informaqoes, como por exemplo, pai'ses e suas ca- 
pitals, elementos quimicos e seus si'mbolos, palavras em 
portugues e sua tradupao em ingles, e assim sucessiva- 
mente. 

Ele foi adaptado a partir de um programa publicado 
originalmente na revista americana SYNC de Set/out de 
82 . 

Se voce tiver tres horas de paciencia para entrar com 
o programa no seu TK, voce ser4 recompensado com um 
excelente auxiliar de instrupao. Vale a pena. . . Vamos 
14 ? 

ia Parte: ENTRADA DO PROGRAMA 

Entre com o programa conforme listado na figura 1. 
E recomend4vel ir gravando o programa em fita 4 medi- 
da que voce for digitando, para nao correr o risco de 
perder todo o seu trabalho com alguma falta de energia 
el6trica, por exemplo. 



7 REM O PROFESSOR 

TR9DUZ IDG E RDRPTRDG 
POR B. C. STEIN 
•JUNHO 1083 

S REM PARA "RUN" O PROGRfiMfl . 
ENTRE "GOTO 103" 

9 REM PRRfl ENTRRR COM NOUOS 
DADOS OU PRRR MRNIPULRR O PROGRR 
MR , ENTRE "GOTO 1000" 

i0 LET B = I NT £RND*TOT) +1 

12 CLS 

13 PRINT AT 4. . 0 . " -DIGITS O PRF: 
A RETORN AR AO MENU-" 

14- RETURN 

15 LET D $ = INKEY $ 

16 IF D$="G" THEN GOTO 990 

17 RETURN 



20 PRINT "NESTA OPCAO, 

21 RETURN 

25 PRINT "UOCE DISSE OUE E* 

D$ ; 

26 RETURN 

30 PRINT TAB S:"UOCE RCERTOU . " 

31 RETURN 



100 


PRINT 


RT 


5,0; "O PROFESSOR 


D 


El- 












102 


PRINT 










104 


PRINT 


RT 


10.0; -POR 


FAUOR, 


E 


NTRE 


COM O 


SEU 


NOME . - 






110 


INPUT 


c$ 








115 


CLS 








120 


PRINT 


RT 


4 .. G ” COMO 


UP. I 


; c 


$ ; 












' 121 


PRINT 


** EU 


UOU RJUDRR UOCE 


R 


CONHECER 


•• . 


T$ : - . - 






122 


PRINT 


"DADO, 'A Uli/fl 


- . Ki; - 


•* 


123 


PRINT 


-UGCE IRfi RPRENDER 


SE 


U/SUR 


•• 








124- 


PRINT 


N$; 


- , E U ICE 


-UER5R • 


" 


12S 


PRINT 








127 


SLOU 










128 


PRINT 


TRB 


10.; ’ MENU 


•* 




129 


PRINT 










130 
R ** 


PRINT 


11 


1. REUISAO DA LIST 


131 


PRINT 


•• 


2 . TESTE 


PRRTICO 


•» 


132 

~T •• 


PRINT 




3 . TESTE 


DE RAP IDE 


133 


PRINT 


•• 


4. FIM DR 


RULR- 




134. 


PRINT 










135 


PRINT 


"ESCOLHA UMA 


DRS OPCO 


E5 RCIMR.- 










140 


INPUT 


R 









14-2 IF A < > 1 AND A<>2 AND A<>3 A 
NO A <>4- THEN GOTO 14-0 
14-5 CLS 

ISO GOTO A *200 

200 PRINT AT 5,0:" REvIS 

AO DA LISTA " 

205 GOSUE 20 

210 PRINT ” EU UOU MOSTRAR UH/UM 

A " ; N4; " " , 

continue 
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23jfl PRINT "E RESPECTiyC/fi " .; fl$ ; 

212 PRINT "DEPOTS DE MOSTRfiR OS 
";TOT; " ITEMS . PflSSflRE I fi RELR 

CRO flO CONTRRRIO." 

213 PRINT " ESCOLHR UM NUMERO D 

E 0 fl 9, 0-PRSSRGEM MR IS RRP 

IDR, 9 — PRSSRGEM MR IS LEN 

"PP * 11 

215 INPUT Z 

217 IE Z < 0 OR Z > 9 THEN GOTO 215 
220 FOR R = 1 TO TOT 
225 GOSUE 12 

230 PRINT RT 10.2;BS(R) ; ” 

235 FOR N=0 TO i+2f2 

236 NEXT N 
24-0 GOSUB 15 

24.5 PRINT R$(RJ 

250 FOR N=0 TO 4-+2*Z 

251 NEXT N 
255 GOSUB 15 
260 NEXT R 

265 FOR fi = l TO TOT 
270 GOSUB 12 

275 PRINT RT IS . 2.; R$ (R) ; " *• : 

280 FOR N=0 TO 4. +2*1 

281 NEXT N 
235 GOSUB 15 
290 PRINT 6$ (fi) 

295 FOR N=0 TO 4-+2*Z 

296 NEXT N 

300 GOSUE 15 
305 NEXT R 

310 GOTO 220 

4-00 PRINT RT 5.0;" tc^t 

E PRRTICO 

4.05 GOSUB 20 

4.10 PRINT “UOCE RE5PONC-ERR R 30 
" OUESTRO 1 



OUESTOES: 

q 1 tr •• 

4-11 PRINT 



i i-- ‘EU LHE DOU UM/fi 

UR " ; N*f "T" UOCE ENTRR COM SEUxI 

9*30 " PR * N ^ OUESTRO 16 

tic nSJJII “FRREMOS O INUERSO." 

4X15 PRINT "ENTRE ""NEU LINE"" P 

RRR COMECRR" H 

4-17 LET U=0 

4.18 INPUT Z$ 

419 XF F2 ™EN GOTO 4.35 
4-20 FOR R = 1 TO TOT 

4-25 LET E$(R)=CHR$ 0 

4-30 NEXT R 

4.35 FOR R = 1 TO 15 

4-4.0 GOSUB 10 

445 IF E$(B)="X" THEN GOTO 4-4-0 
4-4-7 PRINT RT 9.0;"OURL E O SfH "; 
N$; " DO/R" 

4.50 PRINT RT 10.8;R$(B> 

4.60 INPUT D$ 

4-62 GOSUB 25 
4-65 GOSUE 16 

470 IF LEN D $ =L2 THEN GOTO 4-75 
4-72 LET D$=D$+" ” 

4-73 GOTO 4-70 

475 IF D$=B$ (B) THEN GOTO 4-90 

476 PRINT "UOCE ERROU . O CERTO 
E* " 

4-77 PRINT TRB 

4-78 FOR N=0 TO 35 

4-79 NEXT N 
4-80 GOTO 4-97 

4-90 IF NOT F2 THEN LET E$(B)="X 

4-92 GOSUB 30 

4-93 LET U=U + 1 

4-95 FOR N=0 TO 16 

4-96 NEXT N 

4-97 NEXT R 

500 FOR R = 1 TO 15 

505 GOSUB 10 

510 IF E$(B)="X" THEN GOTO 505 
512 PRINT RT 9 . 0 ; " OURL E 0,'R "; 



M? 



113 PRINT "CUJO/fl " E. " 




520 INPUT D$ 

525 GOSUB 25 
527 GOSUB 16 

530 IF LEN D$=L1 THEN GOTO 54-5 
535 LET D*=D$+" " 

54.0 GOTO 530 

54-5 IF DJ=ft$(B) THEN GOTO 560 

550 PRINT "UOCE ERROU. O CERTO 
E« " 

551 PRINT TRB S;R$(B) 

553 FOR N =0 TO 4.0 
554- NEXT N 

555 GOTO 575 
560 GOSUE 30 

565 IF NOT F2 THEN LET E$ (B) ="X 

570 FOR N =0 TO 20 

571 NEXT N 

572 LET U=U+1 
575 NEXT R 
58© CLS 

534- SLOU 

585 PRINT RT 9.0;C$.". UOCE FEZ 

" ; U; " PONTOS." ' ’ * 

586 PRINT 

590 PRINT "DIGITE “"NEU LINE"" 
PRRR O MENU." 

592 INPUT D $ 

595 GOTO 990 

600 PRINT RT 5.0;" TESTE 

DE RRPIDEZ 

6©5 GOSUE 20 

610 PRINT "UOCE TEM 60 SEGUNDOS 
PRRR ENTRRRCOM O MRIOR NUMERO P 

OSSIUEL DE RESPOSTRS." 

611 PRINT "EU DOU UM/fi " M " .. 

612 PRINT "UOCE ENTRR SEU/SUfi ” 
N $ ; " . " 

613 PRINT 



continua 
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r 



+ 1 PONT O POP EcSPDS 
-1 PONTO POP RESPOS 
0 PONTGS 5E UOCE N 
E ENTRRR " " NEU L 



614. PRINT 
TR CERT R . 

TR ERRRDfi . 

RO SOUBER ' 

INE '* " . " 

615 PRINT 

616 PRINT "ENTRE " ''NEU LINE"" P 
RRR COMECRR" 

617 LET U=0 
613 ERST 

619 INPUT D$ 

620 POKE 164-36.0 
625 POKE 164.37.0 
630 GOSUE 10 

64-0 PRINT RT 10.8. R£(6) 

64-5 INPUT D$ 

64.7 IF PEEK 164-36 +256 *PEEK 164-3 
7 <62500 THEN GOTO 530 
65© IF D*="” THEN GOTO 630 
655 GOSUB 16 

657 IF LEN D*=L2 THEN GOTO 660 

658 LET D$=D$+" " 

659 GOTO 657 

660 IF D$<>B$£B) THEN LET U=U-1 
665 IF Dt=B$(B) THEN LET U=U+1 
670 GOTO 630 

800 PRINT RT 9.0; "UOCE SE SRIU 
NUITO BEM, " : C$ ; " . " 

805 FOR N=0 TO 20 

806 NEXT N 

807 PRINT 

810 PRINT "ESPERO (DUE TENHR G05 
TfiDO DE RPRENDER RLGO NOUO . " 

812 PRINT 

815 FOR N=0 TO 20 

816 NEXT N 

820 PRINT " tiiititRTE 1 R PROXIM 
R UEZ****»i*" 

822 FOR N=0 TO 200 

823 NEXT N 

824. CLS 

825 GOTO 100 

990 CLS 

991 PRINT RT 5.14.;"" 

995 GOTO 126 

996 SRUE T$ 

997 GOTO 100 

990 CLS 

1000 PRINT RT 6. 0; "ROTINfl PRRR C 
RIRCRO E REUISRO DE DRDOS . " 
1005 GOTO 1328 

1008 LET F 1 =0 

1009 PRINT RT 10.5; "ENTRE COM O 

TITULO DO SEU PROG 

RRMR . " 

1010 INPUT T$ 

1012 LET F2=0 

1015 CLS 

1020 PRINT RT 9.0: "ENTRE COM O T 
ITULO (NO SINGULRR) DO PRIMEIRO G 
RUPO DE ITENS DE SUR RELRCRO. 

DE PREFERENCIR OS ITENS MRIS LO 
NGOS . " 

1030 INPUT M* 

1035 CLS 

104-0 PRINT RT 9 . 0 ; "OURNTOS DIGIT 

OS TERR R PRLRURR MRIS LONGR DO 

PRIMEIRO GRUPO DE ITENS?" 

1050 INPUT LI 

1055 CLS 

1060 PRINT RT 9.0; "ENTRE COM O T 
ITULO (NO SINGULAR! DO SEGUNDO GR 
UPO DE ITENS." 

1070 INPUT N* 

1073 CLS 

1075 PRINT RT 9 , 0 ; " OURNTOS DIGIT 
OS TERR R PRLRURR MRIS LONGR DO 

SEGUNDO GRUPO DE ITENS?" 

1080 INPUT L2 
1035 CLS 

1090 PRINT RT 9 .. 0; "OURNTOS ITENS 

NO TOTAL.. TERR R SUR RELRCRO?" 
1095 INPUT TOT 
1100 CLS 

1105 PRINT RT 5.0; "TITULO-" 

1106 PRINT T$ 

1110 PRINT "TITULO DO 1. GRUPO D 
E ITEMS:- ";M$ 



1115 PRINT "MRIOR PRLRURR DO 1. 

GRUPO:- " ; L 1; " LETRAS." 

1120 PRINT "TITULO DO 2. GRUPO D 
E ITEMS:- ";N$ 

1125 PRINT "MRIOR PRLRURR DO 2. 

GRUPO:- " ; L2; " LETRAS." 

1130 PRINT "TOTAL DE ITENS DR RE 
LRCRO : - " ; TOT 

1135 PRINT 

114-0 PRINT "AS INF ORMRC'OES ESTRO 
CERTAS-S/N?" 

114-2 INPUT Z$ 

114.5 IF Z$="S" THEN GOTO 1151 
114-7 IF Z$ = "N" THEN RUN 999 

1150 IF Z$0"S" OR ZJO"N" THEN 
GOTO 114.0 

1151 IF TOT <4.0 THEN LET F2 = i 

1160 DIM R$(TOT.Ll) 

1165 DIM B$(TOT'.L2) 

1170 DIM E$(TOT) 

1175 CLS 

1185 PRINT RT 10,0; "ENTRE COM O 

1. ITEM DO 1. GRUPO. DEPOIS COM O 

1. ITEM DO SEGUNDO GRUPO; ENTRE 
COM O 2. ITEM DO 1 . GRUPO . O 2. 

ITEM DO 2 . GRUPO . E RSS 

IM POR DIANTE." 

1190 FOR R = 1 TO TOT 

1200 IF NOT FI THEN GOTO 1250 

1205 SCROLL 

1210 PRINT M*; R* (R) 

1215 SCROLL 

122© PRINT N$; " ":B*(R) 

1225 INPUT Z$' 

1230 IF Z*="" THEN GOTO 1290 

1250 SCROLL 

1255 PRINT M$:" 

1260 INPUT R$ (R) 

1265 PRINT R*(R) 

1270 SCROLL 

1275 PRINT N*; 

1230 INPUT B$(R) 

1285 PRINT B$(fi> 

1290 NEXT R 

1292 CLS 

1295 IF FI THEN GOTO 132© 

PRINT RT 7,0;" NOS URMOS R 
GORR REUER CRDR PRR DE ITENS. 

RPRRECEREH NR TELR ENTRE°"“NEU 
LINE”".. SE ESTIUEREM CORRETOS . 

1301 PRINT " ENTRE "“X"", E ""N 

EU.LINE"", SE ES TIUEREM ERRRDO 

1302 PRINT " NESTE CAS0. VOLTE 
R ENTRRR COM O ITEM." 

1305 LET F 1 = 1 
1310 GOTO 1190 

1320 PRINT RT 5,5; "UOCE PODE AGO 

1323 PRINT 

1330 PRINT 

1335 PR IN i ”1. CRIRR UM NOUO RRQ 

!336 'PRINT “2. REFRZER R REUISRO 
DO RROUIUO." 

1338 PRINT "3. ""SRUE"" O PROGRR 

1339 PRINT 

134.0 PRINT "ESCOLHA UMR DRS OPCO 

1345 INPUT R 

134-6 CLS 

134.7 IF R =3 THEN GOTO 1370 
134-8 IF R = 1 THEN RUN 1007 
1350 IF R=2 THEN GOTO 1300 
1355 GOTO 1330 

136© CLS 

OT 1010 - ; " ACIONE SEU 
GRAVADOR NR POSICAO ""REC"". E 
ENTRE ""NEU LINE""." 

1380 INPUT Z$ 

1335 CLS 

1390 IF Z $ = " " THEN GOTO 996 

1400 STOP 

continua 
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UGUE-SE A 
INFORM AT ICA 



NUCLEO I 

Av Pacaembu, 1.280 
Fon«a: 66.7656/66.1513 



NUCLEO II 

R.TomAs Carvalhal. 380 
(Pr6xlmo Esta?Ao Metrft Paralso) 
Fona: 570.6097 



FA£A COMO OS 
FUNCIONARIOS DA 
ALCAN, XEROX, 
SEARLE. COPAS, 
INTELPA, DARUNG, 
AIR SERVICE: 



MATRICULE SE NA 
COMPUT ADORES. 
CURSOS DE 



BASIC e COBOL. 

• Numero limitodo de alunos por 
dasse * 1/3 de todas as aulas com uso 
direto dos computadores. inclusive nos cursos de 
Cobal • Professores altamente qualificados • Cursos 
apostilados e apresentados com transpar^ndas • Modem as 
instalagoes com v&rios equipamentos Oismac, Prol6gica, 
Sysdst* entre outros • Pre?os extremamente acessiveis. 



COMPUTADORES 



A NOVA MANEIRA DE 
APRENDER A PROGRAMAR 



Uma vez digitado o programa proceda da seguinte 
forma: 

29 Parte: MANIPULAQAO DO PROGRAMA 

1) Se voce estiver no modo FAST, volte ao modo 

SLOW 

2) Nunca, nunca mesmo, entre com RUN 

3) Digite GOTO 1000 

4) Aparecer^ o ''MENU'' com 3 oppoes (veja fig. 

nP 2) 

5) Escolha a oppao nP 1 e NEW LINE. 

6) Siga as instrupoes do programa: 

a — escolha o ti'tulo; por exemplo, PAI'SES E SUAS 
CAPITAIS (este ser3 tamb^m o ti'tulo com o qual o pro- 
grama serS gravado mais adiante. 

b — escolha ti'tulo (no singular) da 19 s^rie de dados: 
PAIS (no nosso exemplo). 

c - fornepa o numero de letras da palavra mais com- 
prida, por exemplo: 15. 

d — e — siga o mesmo procedimento para o segundo 
grupo de informapoes. Por exemplo: CAPITAL e 15di'- 
gitos. 

f — Entre agora com o numero de pai'ses e capitais 
que voce quer listar, por exemplo, 60. 

7) 0 programa entao Ihe auxiliary a fazer uma revisao 
dos dados entrados at6 agora. Se houver algum erro en- 
tre "N" (nao) e volte a fornecer os dados solicitados. 

8) Se estiver tudo certo entre "S" (sim) e, entaio, co- 
mece a fornecer ao computador os dados (no nosso 
exemplo: pais e sua respectiva capital) at6 completar a 
s6rie. 



Se voce perceber que cometeu alguns erros, prossiga: 
havera oportunidade de se fazer a correpao por ocasiao 
da revisao 

Apos entrar com todos os pares de informapoes o 
programa auxiliara voce a fazer uma revisao. A cada par 
de dados entre "NEW LINE" se a informapao estiver 
correta. Entre "X" se estiver errado e corrija a informa- 
pao, entrando novamente com o pai's e sua capital. 

9) Apos a revisao, o programa volta ao menu. Neste 
ponto escolha a oppao 3. Coloque seu gravador em 
"REC" e grave (SAVE) o programa em fita. 

39 parte - USO DO PROGRAMA 

Depois de todo nosso trabalho e dedicacao (ufa. . .), 
estamos agora prontos para usufruir das aulas do nosso 
professor cibernetico. 

1) Apos ter gravado o programa em fita ou quando, 
numa outra oportunidade, voce pass^-lo da fita para o 
gravador, usando o comando LOAD "PAI'SES E SUAS 
CAPITAIS" (no nosso exemplo, £ claro) ele se iniciard 
automaticamente convidando voce a fornecer seu nome. 

2) A partir desse momento o tratamento entre o 
computador e voce ser3 personalizado, ele se dirigir^ a 
voce e Ihe mandat o menu de oppoes que voce tern para 
memorizar os "PAI'SES E SUAS CAPITAIS" (veja fig 
3). 

3) Escolhendo a oppao nP 1 ; revisao da lista, voce 
poder3 rever as capitais e seus respectivos pai'ses e vice- 
versa. 

Voce pode escolher a velocidade de revisao sendo 0 
a mais rapida e 9 a mais lenta. 

Para interromper a revisao entre Q e NEW LINE que 
tamb^m interrompera as oppoes n9 2 e 3 e retornar^ ao 
MENU. 

4) Na oppao nP 2: 

0 computador escolhera aleatoriamente 15 pai'ses e 
voce deve entrar com a sua respectiva capital. 

Depois ele escolhera 1 5 capitais e voce dever3 forne- 
cer o respectivo pai's. No fim voce ser3 informado quan- 
tas respostas corretas voce deu. No caso de voce ter mais 
do que 40 (tens fornecidas ao computador ele nao repe- 
tir3 a pergunta cuja resposta dada estiver correta. 

Na oppao 3, que 6 um teste de rapidez, voce devera 
fornecer em segundos o maior numero possi'vel de capi- 
tais para os pai'ses perguntados. Cada resposta certa vale 
1 ponto, cada resposta errada voce perde um ponto. Se 
voce so entrar NEW LINE voce nao perde nem ganha. 

A oppao n<? 4 6 um final para o programa, que se 
reiniciara em segundos. Nesta oppao 6 tecil dar um 
"BREAK" no programa para poder digitar "GOTO 
1000 e preparar uma aula diferente. 

Claro que voce pode preparar diversas aulas "diferen- 
tes" com o PROFESSOR e armazenar cada uma, com 
seu respectivo nome, em fita. 

Se voce quiser armazenar o programa em fita sem aula 
alguma, sugerimos que apos ter entrado com ele no com- 
putador, armazen^-lo em fita digitando SAVE "0 PRO- 
FESSOR". 

Quando, em outra ocasiao, voce quiser usa-lo para 
preparar uma aula entre LOAD "0 PROFESSOR" e 
apos te-lo no computador entre "GOTO 1000 ". 

Boa aula e boas notas! 
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PROGRAMA DO LEITOR 

OTHELLO 




Edson Mikio Yoshida 
Nelson Murassaki 



Este programa foi originalmente publicado na revista 
japonesa "BASIC — jogos para calculadoras program^- 
veis" e foi adaptada para o TK para ser rodado em modo 
''FAST" (versao original para calculadora program^vel 
FX-702P). 

0 objetivo consiste em conseguir o maior numero de 
fortunas possi'vel, portanto, ganha aquele que tiver 
maior numero de fortunas em jogo ap6s o preenchimen- 
to das casas vazias (+) ou zerar o adversario dentro de 
urn tabuleiro de 8x8. 

Para conseguir estas fortunas 6 necess^rio prensar as 
pepas do adversario e faze-lo entregar a voce, assim te- 
mos as seguintes regras: 

a) So 6 possivel adquirir suas fortunas prensando uma 
ou mais pepas do adversario ( H ) em duas extremidades 
tanto nas diretas como diagonais, digitando para isso as 
coordenadas onde voce deseja colocar a sua pepa, pri- 
meiro na horizontal e depois na vertical o computador 
far3 o mesmo ap6s a sua jogada. 

Exemplo: 

X = ? 4 depois NEW LINE 
Y = ? 5 depois NEWLINE 

b) Caso nao seja possivel realizar o I'tem anterior, isto 6, 
fique sem sai'da, nao tendo lugar para colocar sua pepa, 



6 necessario passar a sua vez, digite um numero negativo. 
Exemplo: 

X = ? — 1 depois NEWLINE. 



1 REM EDSON MIKIO YOSHIDA 

E 

NELSON MURASSAKI 

2 DIM C$(16,8) 

3 DIM R$(8,8) 

4. LET P = 1 

5 GOTO 97 

6 PRINT RT 16,2; ” 

7 PRINT RT 17 , 2; = 

8 INPUT X 

9 LET Z=X + 1 

10 GOSUB 21 

11 LET X = INT Z 

12 PRINT RT 17 , 2; "Y=” 

13 INPUT V 

14 PRINT RT 17,2; M 

15 LET Z=Y+i 

16 GOSUB 21 

17 LET Y = INT Z 

18 IF R£ iX , Y) = ,, + " THEN GOTO 28 

19 PRINT RT 11,5; "OUTRR UEZ M 

20 GOTO 6 

21 IF Z<=0 THEN PRINT RT 11,5; 
:, Ph5SE 

22 IF Z<=0 THEN PAUSE 100 

23 POKE 16437,255 

24 PRINT RT 11,5; " 

continue 
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25 IF Z<1 THEN GOTO 36 

26 IF Z < =8 THEN RETURN 

27 GOTO 19 

28 LET B$ = “H“ 

29 LET G$=“0“ 

30 LET P=0 

31 LET 0—3 

32 PRINT RT 16,2; M UOCE ";X- 1; “ 
•*; V-l 

33 GOSUB 51 

34- PRINT RT 5 , 2 ; “ 

35 GOSUE 81 

36 LET B$=“0“ 

37 LET G$ = “H“ 

38 LET P = 1 

39 LET 0=3 

40 FOR 5=1 TO 16 

4.1 FOR R=Q TO 1 STEP -2 

4.2 LET X=URL C$(S.R) 

4-3 IF X =9 THEN GOTO 6 

4.4. LET T =R — 1 

4.5 LET Y=URL C$lS.T) 

^ 4.6 IF R$ CX ,Y) = “ + “ THEN GOSUB 5 

4.7 IF 0 = 1 THEN PRINT RT 5.2: "C 
OMP. X-l; “ v-i 

4.8 IF 0 = 1 THEN GOTO 81 

4.9 NEXT R 

50 NEXT S 

51 FOR I=-l TO 1 

52 FOR U = -l TO 1 

53 LET E=X 
54. LET F=Y 

55 LET M =X 

56 LET N=Y 

57 IF 1=3 THEN IF U=0 THEN GOT 
O 59 

58 IF E + I > =1 THEN IF E+I<=8 TH 
EN IF F+U>=1 THEN IF F+J<=8 THEN 

GOTO 63 



MICROCOMPUT ADORES 

AD DATA Educa9§o e Informatica S/C Ltda. 

Cursos 

Introdugao a informatica 
Programagao em linguagem Basic 
Nogoes de programagao estruturada 
Conceitos e recursos de equipamentos 

Pregos especiais para grupos fechados 
(empresas, associagdes, escolas, etc.) 



AD DATA Comercio e Servi9os de Informatica 

Fornecimento de microcomputadores e acessorios 
(TK85& JR.SYSDATA) 



Diagnostico para implantapao de microcomputadores e sistemas 
de informapao. 

Projeto e implantapao de Software especi'ficos (pacotes ou 
encomendados) 



Rua Joao Ramalho, 818 — Perdizes — Fone: 864-8200 
Sao Paulo 



59 NEXT U 

60 NEXT I 

61 IF P=1 OR 0=1 THEN RETURN 

62 GOTO 19 

63 IF fl$(E+I,F+J) <>B$ THEN GOT 

O 59 

64. LET E =E + 1 

65 LET F=F+U 

66 IF E > = 1 THEN IF E < =S THEN I 
F F > = 1 THEN IF F < =8 THEN GOTO 68 

67 GOTO 59 

68 LET D$=R$(E,F) 

69 IF D$<>B$ THEN GOTO 71 

70 GOTO 64. 

71 IF D$=“+" THEN GOTO 59 

72 LET fi$(X,Y)=G $ 

73 LET H=H+I 
74. LET N=N+«J 

75 LET T$=R$ (H .N) 

76 IF R$(M,N)=B$ THEN 

..N) =G$ 

77 IF T$=B$ THEN GOTO 72 

LET G = 1 
GOTO 59 

PRINT RT 3,17; "0 1 2 3 4-5 



LET R$(M 



78 

79 

80 
6 7“ 

81 

82 

83 

84 

85 

86 

87 

+ 1 

88 

+ 1 

89 

90 

91 



LET Y =0 

LET C =0 

FOR U=1 TO 8 

PRINT RT J*2+3.15; J-l; 

FOR 1=1 TO 8 

PRINT - R$ (I. J) ; 

IF R$(I,J) = %, 0* 4 THEN LET 



Y=Y 



IF R$CI,J) = “I 



THEN LET C=C 



0,0, “SCORE: UQCE = 

OR C=0 OR Y -fC =64 THE 



NEXT I 
NEXT U 
PRINT RT 
";Y, --COMP. = 

92 IF Y=0 
N GOTO 123 

93 IF P=0 THEN PRUSE 303 
POKE 16437,255 
IF P=0 THEN RETURN 
GOTO 6 

FOR U = 1 TO 6 
FOR 1=1 TO 8 
LET R$ (I,J) = “+“ 

NEXT I 
NEXT U 

LET R$ (4,4) = “! 

LET R$ ( 5 .5) = “j_ 

LET (4,5) = **0 

LET R$(5,4) = **0“ 

LET C$ Cl) =“88118116“ 
LET C$ (2) =“ 66366333" 
LET C$ (3) =“34655643“ 
LET C$ (4) =“46355364“ 
LET C$ (5) =“31415161“ 
LET C$ (6) =“13141516“ 
LET C$ (7) =“83848586“ 
LET C $ (8) =“38485888“ 
LET C$ (9) =“32425262“ 
LET C $ ( 10) =“37475767 
LET C$(ll) 

LET 

LET 



94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 
123 



=“23242526* 
C$ ( 12) =“73747576* 
C$(13) =“22777227* 
=“12217182* 
=”17267867* 
=“99999999* 



LET C$(14) 

LET C$ ( 15) 

LET C$(16) 

GOTO 8© 

PRINT RT 21.0; 
NOURMENTE 7 CS,'N) “ 

124 PRUSE 10000 

125 POKE 16437,255 

126 CLS 

127 IF INKEY $=“S“ THEN 

128 STOP 

129 SRUE “OTELLgj” 

130 GOTO 2 



DESEJR JQGflR 



GOTO 1 
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O MAPA 
DA RAM 
DO TK 



Pierluigi Piazzi 



Esta materia originou-se de uma carta enviada pelo 
assinante Roberto R.Malcher (veja segao DESGRILAN- 
DO na pdg. 4 ). Ao invds de respondermos rapidamen- 
te para eliminar uma duvida particular do leitor, resolve- 
mos explorar o assunto de maneira mais completa. 

A memdria do TK estd organizada como uma pilha de 
bytes, cada um correspondendo a um numero cujo valor 
esta entre 0 e 255. Cada posigao da memdria tern um 
enderego que vai de 0 atd um valor que depende da 
RAM disponfvel no computador. Lembrando que 
1 Kbyte corresponde a 1024 bytes (2 I# ) e que a ROM 
do TK82 ocupa 8 kbytes, a RAM deveria comegar no 
enderego 8192. 

Por certas particularidades do projeto original os en- 
deregos de 8192 a 16383 nao sao acessados pelo sistema 
operacional, mas estao reservados para futuras expan- 
ses da ROM (o que jd ocorreu, alids, no TK85). Isto 
significa que o primeiro enderego da RAM serd 
8K+8K= 16x1024= 16384. 

Do enderego 1 6384 ao enderego 1 6508 est§o armaze- 
nados os valores das varidveis do sistema operacional do 
TK. Estes 125 bytes s3o um pedacinho da RAM que a 
ROM usa para fazer o computador funcionar. A partir 
do enderego 16509 fica armazenado o programa. Atd 
que enderego? Ora este valor d variavel, pois o programa 
que foi inserido na RAM pode ter vdrios comprimentos. 
Uma das varidveis armazenadas nos 125 bytes iniciais d 
justamente a que indica o enderego do byte seguinte 
dquele em que termina o programa. 

Lendo estas varidveis, podemos determinar as frontei- 
ras entre uma regiao de memdria e outra. 

0 fim da memdria, por exemplo, d dado por uma va- 
ridvel batizada RAMTOP contida nos bytes de enderegos 
1 6388 e 16389. 

Num computador com 2K de RAM o fim da memdria 
estd no enderego 18432, ou seja, 16384 + 2K. 

A varidvel RAMTOP, entao, vale 18432. Como em da- 
da byte cabe, no mdximo, um numero atd 255 usa-se a 
seguinte convengao: o valor armazenado no segundo 
byte (no caso 16389) d 256 vezes o numero nele con- 
tido. 



Para armazenar, por exemplo, o numero 19506 em 2 
bytes, devemos escreve-lo assim: 

1 9 byte = 50 
29 byte = 76 

pois, 

50 + 256 x 76= 19506 

0 valor da varidvel RAMTOP para 2K, ou seja 18432 
deve entao ser escrito: 

1 9 byte = 0 
29 byte = 72 

pois, 

0 +256 x 72= 18432 
Experimente digitar no seu computador 



PRINT PEEK 16388, PEEK 16389 

fig. 1 

voce deverd obter: 

0 72 

para 2K de RAM. Se o seu computador tiver 16K de 
RAM voce obterd: 

0 128 

pois, 

0 + 256 x 128= 32768 

continu* 
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Lembrando que a RAM do TK comega no endereco 
16384, digite o programa da figura 2. 



10 LET R«HTOP=PEEK 16383+256fP 
EEK 16339 

20 LET RftHD ISP =Rfl?1TOP - 163S4- 
3© PRINT "RqMTOP=”;RflMTOP 
40 PRINT "ROM DISPONiyEL=“ ; RAM 
DI5P/'i024; M KBYTES” 

fig. 2 



Se voce tiver 2K, obter^: 



RRMTOP=18432 

ROM DISPON XVEL =£ KBYTES 

fig. 3 



Se voce tiver 16K, obtera: 



RRMTOP=3a75e 

RRH D ISPON IUEL = IS KBYTES 

fig. 4 



Se o seu computador for um TK85 com 48K (RAM) 
ou um TK82 com expansao para 64K (ROM + RAM) 
voce dever2 obter : 



RRMTOP=£3535 

RPM PISPONIUEL=A7.999023 KB'iTES 
fig. 5 

Se voce nao obtiver este valor, leia a resposta a carta 
do Roberto na pag. 4 . Vejamos agora como est3 orga- 
nizada a RAM, desde o endereco 16384 ate a RAMTOP: 




16384 

16509 

PEEK 16396 + 256 * PEEK 16397 
PEEK 16400 + 256 * PEEK 16401 

PEEK 16404 + 256 * PEEK 16405 
PEEK 16410 + 256 * PEEK 16411 
PEEK 16412 + 256 * PEEK 16413 
NAO ACESSIVEL EM BASIC 
PEEK 16386 + 256 * PEEK 16387 

PEEK 16388 + 256 * PEEK 16389 
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Estudando este mapa da RAM, vemos que temos va- 
ries maneiras de medir o comprimento de um programa, 
ou a memdria necess^ria para rod^-lo. Vamos entao 
acrescentar algumas linhas ao programa da figura 2 para 
ampli^-lo atd o indicado na fig. 7: 



10 LET RRMTOP=PEEK 16333+256iP 
EEK. 16389 

20 LET RflHDISP =RRMT OP -16384- 
80 PRINT "RhMTOP = " ; RRMTOP 
4-0 PRINT "RAM DISPONIUEL = ,! :Rfl 
MD ISP / 1024 J " KBYTES" 

50 LET OF ILE =PEEK 16396+256*PE 
EK 16397 

60 LET PROGRRMR =DF ILE-16589 
70 PRINT " PROGRAMS =" ; PROGRAMA 
* * ' BY T E S " 

80 LET URRS=PEEK 164-00 +258 iPEE 
K 16401 

90 LET TELA=dARS —Dr ILE 
100 PRINT "TELA = " ; TELA ; " BYTES 
fig. 7 



Ao rodar este programa voce obter^ o indicado na fig. 
8, se sua m^quina tiver 1 ou 2K e o indicado na fig. 9 
se tiver mais que 3,5K de RAM. 



RRMTOP =184-32 
RRM DI5PONIUEL =2 KBYTES 
PROGRRMR =366 BYTES 
TELR =81 BYTES 


fig. 8 




RRMTOP =32763 

RRM DISPONIUEL =16 KBYTES 
PROGRRMR =366 BYTES 
TELR =793 BYTES 


fig. 9 



Isto ocorre porque o sistema do TK tenta economizar 
o m^ximo de RAM quando esta 6 pouca (menor que 
3,5K). 0 truque usado consiste em armazenar no arqui* 
vo da tela apenas o que esta impresso, nao consumindo 
memoria com espagos vazios (fig. 10). 

Isto gera um cuidado, ao medir um programa elabora- 
do para um computador com 2K ou 1 K, fazer isto com 
a expansao desconectada. 

Finalizando, vamos resumir como medir a memdria 
utilizada: 

1 ) MEMORIA OCUPADA SO PELO PROGRAMA: 

PRINT PEEK 16396 + 256 * PEEK 16397 - 16509 

2) MEMORIA OCUPADA PELO PRCfGRAMA, VARIA- 
VEIS, TELA E VARlAVEIS DO SISTEMA: 

PRINT PEEK 16404 + 256 * PEEK 16405 - 16384 

3) MEMORIA AINDA DISPONIVEL (incluindo a pilha 
para o microprocessador): 

PRINT (PEEK 16386 + 256 * PEEK 16387) 
- (PEEK 16412 + 256 * PEEK 16413) + 87 

Note que somamos 87 bytes, correspondentes ao 
comprimento do proprio comando direto. 
O 



TELA 





ARQUIVO 



COMOxxxxxxxxxxxxxxxxxxxx 

ECONOMIZARxxxxxxxxxxxxx 

MEMORIAxxxxxxxxxxxxxxxx) 

xxxxxxxxxxxxxxxxxxxxxxxxx: 

xxxxxxxxxxxxxxxxxxxxxxxxx; 

xxxxxxxxxxxxxxxxxxxxxxxxx: 




ARQUIVO 



COMO| 

ECONOMIZAR 
MEMORIA 







* 



«■ 



I 





fig. 10 
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Apresentando os Apple 

A Microhobby 6 a revista dos usu^rios do TK # um ex- 
celente computador para nos iniciarmos e explorarmos 
o mundo da computagao. Entretanto voce pode estar 
pretendendo comprar um computador mais sofisticado, 
ou que voce, senhor Executivo, tenha em sua firma tal 
computador. Por isso estamos abrindo uma nova segao, 
que vai tratar do mais popular, e um dos mais sofistica- 
dos, computadores dos Estados Unidos, o Apple, do 
qual \& existem diversos similares no Brasil. 

Sao muitas as diferengas entre o TK e o Apple, vamos 
aqui, procurar explicar algumas. Ao longo das publica- 
goes iremos 'destrinchando' o Apple. 

Nacampo do Hardware sao essas as maiores diferen- 
gas entre os dois computadores: 





TK 


Apple 


Memdria 


2K - 64 K 


16K — 64K 


Processador 


Z80, 2.56 MHz 


6502, 1.023 MHz 


Tela 


controlado pelo 
processador 


controlada por 

circuitos 

especializados 


Gr&ficos 


baixa resolu<^o 
preto e branco 


baixa e alta 
resolugao, coloridos 


Caracteres 


alfanum^ricos e 
gr^ficos 


alfanum^ricos 



Embora o m^ximo de memoria RAM do Apple seja 
'normalmente' 64K, existem circuitos especiais para ex- 
pand i-la ainda mais. 

Para quern nao sabe, o sfmbolo MHz quer dizer mi- 
Ihoes de ciclos por segundo, e indica a velocidade com 
que 'anda' o processador. Uma instrugao tipo 'soma' do 
6502 pode ser feita em dois ciclos, isto 6, o 6502, pro- 
cessador do Apple pode realizar at6 500,000 somas por 
segundo. A mais longa instrugao do 6502 leva 7 ciclos. 

Como voce \& deve ter percebido, entao, o 6502 corre 
mais devagar do que o Z80, e, al6m disso, tern menos re- 
cursos; mesmo assim, o Apple 6 mais rapido que o TK, 
pela seguintes razoes: se voce j3 abriu o TK, voce viu 
que ele tern poucos Cl's, portanto o Z80 tern que fazer 
quase tudo, inclusive controlar o video (porque no mo- 
do FAST nao tern video?), \& no Apple existem cerca de 



100 circuitos integrados para ajudar o 6502, e portanto 
o microprocessador so tern que se preocupar quase que 
exclusivamente em executar o programa; alem disso, o 
BASIC do Apple 6 mais sofisticado, e roda de uma ma- 
neira mais eficiente. 

Infelizmente o Apple nao traz todos aqueles caracte- 
res gr^ficos que o TK tern, tanto em alta como em baixa 
resolugao, ele s6 'plota' um quadradinho, mas as cores 
e a alta resolugao compensam em muito a falta de carac- 
teres gr^ficos. 

Existem outras importantes diferengas entre o TK e o 
Apple estao no campo do 'Software', ou programas. 

0 BASIC do Apple se chama Applesoft, e embora to- 
da a logica do programa e 90% dos comandos sejam 
identicos, existem as seguintes diferengas: 

1) Enquanto no TK basta digitar uma tecla para apa- 
recer o comando, no Apple 6 preciso digitar o comando 
letra por letra. 

2) 0 comando LET nao e obrigatdrio, ou seja, 6 v3li- 
do apenas digitar: 

If A = 5 

3) Podemos colocar mais de um comando numa mes- 
ma linha, bastando separ^-los com 

15 A = 5:B = 15: PRINT A ♦ B 

OBS.: Cuidado se for juntar comandos IF . . . THEN, 
6 melhor nao faz6-lo. 

4) No Apple o comando NEW apaga toda a memoria 
(de programa e de varteveis), CLEAR apaga as varteveis 
e HOME apaga a tela. Isto 6, HOME corresponde aos 
CLS noTK. 

5) Nao existe o comando EDIT no Apple, para modi- 
ficar uma linha de programa usamos o modo ESC. 

6) Embora tamb6m existem os comandos PEEK e 
POKE no Apple, e eles executem a mesma agao que no 
TK, os efeitos nao sao os mesmos no Apple, pois como 
voce talvez ja saiba, os efeitos dos PEEK'S e POKE'S de- 
pendem muito do Hardware de cada computador e co- 
mo ja foi mostrado, os dois sao bem diferentes neste 
ponto. 

7) 0 Applesoft nao verifica linhas de programa quan- 
do de sua entrada, portanto os erros de sintaxe so sao 
detectados quando rodamos o programa. Uma lingua- 
gem alternativa para o Apple, 6 que geralmente vem com 
a unidade de disco 6 o Integer BASIC, que verifica a sin- 
taxe de cada linha na sua entrada, como o TK, mas, em 
compensagao nao trabalha com numeros reais, apenas 
inteiros, como o nome j3 diz. 

continue 
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8) No Applesoft nafo M necessidade de se dimensio- 
nar uma vari^vel 'string' antes de guardar caracteres nela. 
Por exemplo, enquanto, que no TK fariamos: 

1 DIM f)$(S6) 

2 LET R$ = '‘flBCDEFGHIvJKl-MMOPORS 
TUUWXYZ " 

No Apple basta fazer: v 

1 A«= • ABCDEF6H I JKLHHOPORSTUVW X Y Z ' 

Podemos no Apple tambdm fazer matrizes 'string', 
e nesse caso, cada elemento da matriz podeassumir um 
'string' inteiro. 

Exemplo: 1 Dill A9(ll, 10) 

2 A4(1,2)=*NEU NONE* 

3 A$(1,3)='E’ APPLE* 

4 A«(4,5)=*SEU NONE* 

5 A»I8,9)=*E’ JOAO* 

TATUZAO 



Esse pequeno jogo tem como finalidade, aldm de en- 
treter, introduzir o leitor 'as possibilidades gr^ficas do 
APPLE II, e ensinar algumas tdcnicas para facilitar o de- 
senho e sua movimentapao. 

Nesse jogo o computador esconde um 'tatu' em algum 
lugar de um terreno quadriculado de 100 por 100, e o 
jogador deve tentar adivinhar a posipao do 'tatu' atd en- 
contr^-lo. 

Apos cada tentativa o computador informa ao joga- 
dor que direpao seguir para encontrar o tatu, quando o 
tatu d encontrado, ele d desenhado na tela, e aparece o 
numero de chutes que o jogador usou para achar o tatu. 
0 computador entao pergunta se quer jogar de novo. 

Para se achar o 'tatu' nesse jogo 6 preciso conhecer 
duas coisas: os pontos cardeais e colaterais, e sistema de 
coordenadas x, y. 

£ assim que o campo quadriculado esta organizado 
nesse jogo : 




0 centro do quadriculado d o 50,50. Voce deve ir 
chutando as coordenadas de acordo com as indicapoes 
do computador. S6 na primeira vez d que nao h3 indica- 
pao nenhuma. Lembre-se que devemos sempre entrar o 
X antes do V (d s6 lembrar da velha aula da geometria). 

Obviamente esse programa nao oferece a animapao de 
um 'defender' ou 'commander', mas em compensapao 
pode ser facilmente entendido (acompanhe os 
REMARKS). 

A princi'pio da tdcnica para se poder desenhar e mo- 
ver facilmente uma figura 6 a seguinte: 

Guardamos os dados necess^rios para o desenho da fi- 
gura numa matriz (linha 100). Todos esses dados safo re- 
lativos a uma posipao, no caso o centro da figura. Ap6s 
determinarmos o ponto onde queremos que fique o cen- 
tro da figura (vari^veis XP e YP) executamos a subrotina 
540 (ou 580, se for para desenhar o 'tatu'). Essa subro- 
tina le os dados da matriz respectiva, e desenha. Na ver- 
dade cada dado para desenho consiste de quatro nume- 
ros, pois como vocd deve ter notado essa matriz exe- 
cuta um HPLOT de um ponto a outro. A tdcnica de exe- 
cutar HPLOT's de um ponto a outro 6 bem mais rcipida 
e exige bem menos dados nos comandos DATA do gra- 
var cada ponto do desenho na matriz. Para se apagar 
uma figura, simplesmente a redesenhamos na mesma po- 
sipao, s6 que em preto. 

Essa t^cnica 6 bem geral e se aplica a muitoscompu- 
tadores, s6 que no caso de nao ser possi'vel o recurso de 
desenhar uma linha de um ponto a outro, deve-se guar- 
dar todos os pontos do desenho (relativos a algum refe- 
renda! ), e trocar a linha 540 para: 

548 FOR I = 1 TO TH STEP 2: 

HPLOT XP ♦ PHI (I + 1) ,YP ♦ PHX(I): 

HEIT I: 

RETURN 

0 uso de matrizes inteiras se justifica por essas usarem 
bem menos memdria do que usariam matrizes de ponto 
flutuante. 

Nas proximas publicapoes veremos mdtodos especiais 
do APPLE para desenhar e fazer animapoes de figuras, 
tao r^pidos como os jogos de fliperama que voce conhe- 
ce. Aguarde. . . 



••• •••••• 

••• •••••• 




continue 
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0 REN III TATUZAO I It 

SI 983 POR DENTRO DO APPLE 

10 REN D1HENS10NAR AS HATRIZES 

20 REN PTX --> PONTOS DO TATU 

30 REN PHI --> PONTOS DO HOHEH 

40 REN A* --> DIRECOES 
50 DIN PTII200),PHI(200) 

60 REN LER NATRIZES DE PONTOS 
70 REN DO HONEN E DO TATU 
80 REN TT --> TAHANHO DO TATU 

90 REN TH --> TANANHO DO HONEN 

100 READ TT, TH: FOR I = 1 TO TT: 
READ PTIil): NEXT I: FOR I = 

1 TO TH: READ PHKI): NEXT I 
: FOR I = 1 TO 8: READ A«<I) 

: NEXT I 

110 REN 6ERAR AS COORDENADAS X,Y 

120 REN DA POSICAO DO TATU 
130 REN E INIC1ALIZAR CONTADOR 
140 TEXT : HONE : H6R : XT = INT 
( RND (1) t 1001 :YT = INT ( 

RND (11 t 100) sK * 0 
150 REN POSICIONAR CURSOR E 
160 REN 6ERAR XP.YP INICIAIS 
170 REN PARA EVITAR ERRO 
180 VTAB 22: XP = 50:YP = 50 
190 REN ENTRAR NOVA POSICAO 
200 REN DO HONEN, APAGAR A VELHA 
210 REN DESENHAR A NOVA ,E 
220 REN INCRENENTAR CONTADOR 
230 INPUT 'ENTRE X E Y (DE 0 A 9 
9) ';X,Y:K = K ♦ 1:Y = 99 - 
Y: HCOLOR= 0: 60SUB 540: XP = 

X * 2 ♦ 40:YP = Y ♦ 30: HCOLOR= 
3: 60SUB 540: IF NOT ((X = 

XT) AND (Y = YT)> 60T0 340 
240 HONE : VTAB 22: PRINT ’PARAB 
ENS VOCE ACHOU 0 TATU ’: PRINT 
■EN • ; K; * VEZES*: PRINT 
250 REN DETERHINAR OS PONTOS 
260 REN PARA DESENHO RELATIVO 



270 REN DO TATU 
280 REN E DESENHAR 0 TATU 
290 XP 1 XP ♦ 15: YP = YP ♦ 15: 60SUB 
580: REN DESENHA 0 TATU 
300 GOTO 450 

310 REN INICIO DE CONPARACOES 
320 REN PARA DETERHINAR DUE 
330 REN DIRECAO ESTA 0 TATU 
340 IF (X = XT) AND (Y < YT) THEN 
J = 4: 60T0 440 

350 IF (X = XT) AND (Y > YT) THEN 
J * 1: 60T0 440 

360 IF (X < XT) AND (Y = YT) THEN 
J * 7: 60T0 440 

370 IF (X > XT) AND (Y * YT) THEN 
J = 8: 60T0 440 

380 IF (X > XT) AND (Y > YT) THEN 
i = 3: 6QT0 440 

390 IF (X ) XT) AND (Y < YT) THEN 
J * 6: GOTO 440 

400 IF (X < XT) AND (Y < YT) THEN 
J = 5: GOTO 440 

410 IF (X < XT) AND (Y > YT) THEN 
J = 2: GOTO 440 
420 REN IHPRESSAO DAS 
430 REN OR1NTACOES AO J06AD0R 
440 HONE : VTAB 21: PRINT 'VOCE 
ESTA EH *;X;V;99 - Y; PRINT 
■VA PARA *;A*(J) : FOR I = 1 TO 
500: NEXT : GOTO 23 0 
450 PRINT *0UER J06AR DE NOVO ? 

(S/N) INPUT "jR*: IF LEFT* 
(R*,l) = *S* THEN 140 
460 TEXT : HONE : VTAB 5: PRINT 
TAB! 5)*F0I UN PRAZER*: VTAB 
10: PRINT TAB ( 15) * JOGAR CO 
H VOCE 1 : VTAB 15: PRINT TAB! 

25) 'APPLE II* 

470 COLOR 1 10: HLIN 0,39 AT 0: VLIN 
0,47 AT 39: HLIN 0,39 AT 46: 

VLIN 0,47 AT 0 

480 REN ESPERAR POR UNA TECLA 
490 IF PEEK ( - 16384) < 128 THEN 
490 

500 POKE - 16368,0: HONE : END 



510 REN SUBROT 1NA DUE DESENHA 
520 REN 0 HOHEH EH RELACAO 
530 REN AO PONTO XP.YP 
540 FOR I = 1 TO TH STEP 4: HPLOT 
XP ♦ PHKI ♦ 1 ) , YP ♦ PHKI) TO 

XP ♦ PHKI ♦ 3) , YP ♦ PHKI ♦ 

2): NEXT I: RETURN 
550 REN SUBROT 1NA PARA DESENHAR 
560 REN 0 TATU EN RELACAO 
570 REN AO PONTO XP.YP 
580 FOR I = 1 TO TT STEP 4: HPLOT 
XP ♦ PTKI ♦ 1 ) , YP ♦ PTKI) TO 

XP ♦ PTKI ♦ 3) , YP ♦ PTKI ♦ 

2): NEXT I: RETURN 
590 DATA 48,132: REN NUHEROS 
DE DADOS PARA DESENHAR TATU 
E HONEN 

600 REN BLOCO DE DADOS PARA 
610 REN DESENHO DO TATU 
620 DATA -4, -2, -4, 2, -3, -3, -3, 3, 
*2, -4, -2, 4, -1,-8, -I, 5, -3, -6, 
-2, -6, 0,-10, 0,6, 1,-11, 1,7, 2, 
-6, 2, 8, 3, -4, 3, -3, 3, 3, 3, 4, 4,- 
5, 4, -4, 4, 2, 4, 3 

630 REN BLOCO DE DADOS PARA 
640 REN DESENHO DO HONEN 
650 DATA -15, -3, -15, 2, -14, -4, 
-14, 3, -13, -5, -13, 4, -12, -4,-1 
2, 3, -11, -3, -11, 2, -10, -3, -10, 

2» ”9, -1,-9, 0,-8, -1,-8, 0,-7,- 
4, -7, 3, -6, “6, “6, 5 
660 DATA -5, -7, 3, -7, -5, -6, 3, -6, 
-5, 5, 8, 18, -5, 6, 1,12, -5, -4, -5 
,3, -4, -4, -4, 3, -3, -4, -3, 3, -2, 
-4, -2, 3, -1,-4, -1,3, 0,-4, 0,3, 
1,-4, 1,3, 2, -4, 2, 3, 3, -4, 3, 3, 4 
,"4,4,3 

670 DATA 5, -4, 12, -4, 5, -3, 12, -3, 
"2, 12, -2, 5, 1,12, 1,5,2, 12,2 
,5,3,12,3,10,15,8,17,9,17,7, 
19,6,19,5,20 

680 REN DIRECOES A SE6UIR 
690 DATA NORTE , NORDESTE , NOROEST 
E, SUL,SUDESTE, SUDOESTE, LESTE 
, OESTE 



CALENDARIO perpetuo 



Quantas vezes acontece de precisarmos de um calen- 
dclrio antigo, de alguns anos ou mesmo meses atr^s e, 
por um motivo qualquer, nSo encontrarmos nenhum 
por perto? Quern nunca perguntou a si mesmo algo co- 



mo "Em que dia da semana vai cair o Natal no ano 
que vem?" 0 programa que apresentamos este mes pre- 
tende auxiliar os leitores que \& tiveram uma duvida co- 
mo essa, permitindo-lhes ver, na tela do seu compu- 
tador, o calend^rio completo de qualquer mes e ano, e 
tamb^m servir de base para quern quiser aplicar algumas 
das t^cnicas b^sicas usadas no programa. 

continua 
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8 REN tt CALENDAR 1 0 PERPETUO U 



31983 POR DENTRO DO APPLE 



18 HONE : VTAB 5: HTAB 18: PRINT 
'CALENDAR 10 PERPETUO' 

28 INVERSE : VTAB 23: PRINT TAB! 

7) ; 'DI6ITE ’8,8’ PARA TERNIN 
AR'; TAB! 41);: NORNAL 
38 VTAB 12: HTAB 1: PRINT 'DIGIT 
E 0 HES E 0 ANO, SEPARADOS P 
OR UHA': VTAB 14: INPUT 'VIR 
6ULA (EXEHPLO: 6,1965): ' 

; HES, ANO: IF HES = 8 AND ANO 
= 8 THEN HOHE : END 
48 RESTORE : FOR I = 1 TO HES: READ 
HES4, NDIAS: NEXT I:HESt = HE 
S* ♦ ' ' + STRt (ANO) 



58 REH ANO B1SSEXTO? 

68 IF HES = 2 AND INT (ANO / 4) 

= ANO / 4 THEN NDIAS = 29 
78 REH CALCULAR EH SUE DIA CAI 
0 PRIHE1RO DO HES. 
0-DOHIN68, 1-SE6UNDA. . . 

88 IF HES < 3 THEN HES = HES + 1 
2: ANO = ANO - I 

98 N = 1 + 2 I HES ♦ INT (.6 I ( 
HES ♦ 1)> ♦ ANO ♦ INT (ANO / 

4) - INT (ANO / 188) ♦ INT 
(ANO / 488) * 2:N = INT ( (N 
/ 7 - INT (N / 7)) t 7 + . 

5) : IF N = 0 THEN N = 7 
188 N = N - 1 

118 REH HOSTRAR CALENDARIO 
128 HOHE : COLOR- 18: HLIN 8,39 AT 
8: VLIN 8,47 AT 39: HLIN 8,3 
9 AT 46: VLIN 8,47 AT 8 



138 VTAB 4: HTAB 28 - LEN (HES* 

) / 2: PRINT HES«: VTAB 8: HTAB 
8: PRINT 'D S T Q 0 
S S': PRINT 
140 DIA = 1 

158 HTAB 4 I N ♦ 8: PRINT DIA; 

168 DIA = DIA ♦ 1: IF DIA > NDIAS 
THEN 288 

178 N = N ♦ 1: IF N > 6 THEN PRINT 
: PRINT :N « 8 
180 GOTO 150 

190 REH ESPERAR POR UHA TECLA 
200 IF PEEK ( - 16384) < 128 THEN 

200 

210 POKE - 16368,0: 60T0 10 
228 REH DADOS DO PR06RAHA 
230 DATA JANEIRO, 31, FEVERE1RO, 2 
8, NARCO, 31 , ABRIL, 30, HAIO, 31 , 
JUNHO, 30, JULHO, 31 , A60ST0, 31 , 
SETEHBRO, 30, OUTUBRO, 31 , NOVEH 
BRO, 30, DEZEHBRO, 31 



0 programa comega pedindo o mes e o ano e pro- 
curando, atrav^s do "loop" da I inha 40, o nome do mes 
e o numero de dias neste. No caso de se tratar do mes de 
fevereiro de um ano bissexto (divisi'vel por quatro), o 
numero de dias 6 corrigido para 29. A rotina definida 
pelas linhas 80 a 100 fazem o c^lculo do dia da semana 
em que comega o mes em questao. 




FTTi] 



nm 



Software 
pronto para ser usado. 

Programas de uso pessoal ou estritamenie profissional; 

Cadastros, Banco de Dados, Locagdes, Contabilidade, Contas a Pagar 
e Receber, Editor de Texto, Conta Banc6ria, Mala Direta, Visicalc, 
Controle de Estoque 

E para o programador; Editor Assembler, Compiladores Basic e Cobol... 
... e jogos, que ninguem e de ferro. 

Todos em portuguds, gravados em cassette ou diskette, com manual do 
usuano, extremamente priticos. 

Estamos ao seu alcance. 

Confira. Solicitando por telefone ou no revendedor de sua cidade, relagao 
de programas disponiveis. 

monk micro informatica ltda. 

R. Augusta. 2690 2 ? andar Loja 318 
Tel. (Oil) 852 2958 cep 01412 SP 



monk, ^ 

o software que faz voed ficar 
feliz por ter um micro. 



A linha 120 mostra uma maneira interessante (e r3pi- 
da) para colocar na tela caracteres repetidos. Podemos 
obter efeitos diferentes usando outras cores, "plotando" 
em linhas pares ou mnpares ou na vertical, ou usando 
combinagoes de linhas adjacentes. Mais adiante, o com- 
putador entra num ciclo para colocar na tela os nume- 
ros nos seus lugares corretos. Terminando o programa, 
temos uma sequencia de duas linhas (200 e 210) que 
prendem o computador num loop atb que o operador 
pressione qualquer tecla. 

Finalmente, uma dica para quern quiser usar a f6r- 
mula da linha 90 em seus programas, para calcular o dia 
da semana de um dia qualquer: substitua o "1" no inf- 
cio da fbrmula pela vari^vel "DIA" (N = DIA + 2 * 
MES. . .). Nao se esquega de incluir a linha 80, que efe- 
tua um ajuste nas vari^veis MES e ANO para os meses 
de janeiro e fevereiro. 

TWO LINERS 

Um dos nossos amigos mais proximos 6 o Tio Fred 
List. £ um velhinho simp^tico e um apaixonado hobis- 
ta em computagao. Entretanto, o Apple do nosso que- 
rido tio apresenta somente 0.6K bytes de membria de 
programagao e necessita de alguns programas para ele. 
Eis aqui um desafio. . . Vamos ajud^-lo. 

No BASIC usado no Apple (Applesoft ou Integer) b 
permitida uma instrugao de multiplos comandos, des- 
de que eles venham separados por dois pontos; e as- 
sim, as instrugoes: 

10 HOHE 

20 PRINT MSTQ E’ UH TESTE 1 
30 PRINT 

40 FOR I = 1 TO 10 
50 PRINT I; 1 B $ 

60 NEXT I 
70 PRINT -FIM- 
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podem ser escritas em uma unica linha: 

10 HONE : PRINT "ISTO E* UN TESTE": 

PRINT : FOR I = 1 TO 10: PRINT I; 

* NEXT Is PRINT "FIN*: END 

Entretanto, uma linha so aceita at6 255 caracteres. . . 
cuidado.! 

Para o desafio dos TWO-LINERS vamos estabelecer 
algumas regras: 

todos os programas devem ser escritos em Applesoft 
ou Integer BASIC e nao devem ter mais que duas linhas 
de programapao; 

nao M limites para o numero de multiplos comandos 
ou comprimento de cada linha, desde que, evidentemen- 
te, a linha possa ser digitada diretamente pelo teclado. 

Favor enviar, para a apreciapao do nosso staff, uma 
copia legivel do seu TWO-LINER. Essa copia, que nao 
sera devolvida, podera ser usada pelo departamento co- 
mo e quando o julgarmos necess^rio. 

Os programas serao julgados com os seguintes crit£- 
rios: 

a) impacto que o programa apresenta ao rod^-lo. 

As decisoes do staff do POR DENTRO DO APPLE 
sao semi-finais. Tio Fred List tern a ultima palavra. 

PREMIOS: 

19 colocado: um livro sobre apples. 

29 colocado: uma foto do Corinthians 

39 ao 99 colocados: ainda nao decidimos 

109 colocado: uma foto do Tio Fred List 

Eis aqui dois exemplos feitos por Mark Bachman e 
Christopher Volpe: 






r^croco^P 0 . 

llCX^ 



Iniciacao ao Basic para jovens de 10 a 14 anos 
— duragao 20 horas aula. 

Introdugao a linguagem Basic duragao 20 horas 
aula. 



DOS 500 (DISC OPERATION SYSTEM) 

Dura^ao 30 horas aula. 

Oferecemos tambem, curso de Introdugao a 
Linguagem Basic por correspondence. 

Turmas limitadas de 6 alunos, com atendimento 
individualizado, na qual o aluno aprende utilizan- 
do um microcomputador. 

AI6m dos cursos, a C.P. Systems oferece varios 
programas de jogos e aplicativos, para microcom- 
putadores como D-8000, TK82-C, CP 500 e simi- 
lares. 

Nossos pregos sao bem convidativos. 

C.P. SYSTEMS S/C. LTDA. 

Av. Paulista, 2.073 - conj. 1.212 — Ed. Horsa I 
CEP.: 01311 - Fone: 255-5454 
Sao Paulo — SP 




1 H4 = *313: AD 52 C0 AD 51 C0 A9 

22 EA EA EA EA 2« A8 FC AD 5 
0 CD A9 47 3E 00 00 3E 00 00 
3E 00 00 3E 00 00 3E 00 00 
3E 00 00 3E 00 00 3E 00 00 3 
E 00 00 3E 00 00 20 A8 FC 4C 
06 03 N 3036" 

2 FOR I = 1 TO 30: PRINT 'PA6INA 

UN DE TEXTO NEXT : FOR 
C = I TO LEN (HO: POKE 511 
♦ C, ASC ( HID* (H$,C,D) + 
128: NEXT : CALL - 144 



J3 vimos os exemplos, portanto, maos d obra e 
enviem os seus programas para: 



MICROHOBBY 

Sepao: Por Dentro do Apple 

CX. POSTAL 60081 

STAFF : 

Jos6 Eduardo Moreira 
Daniel R. Falconer 
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FITA DO MES 




FUNQOES I 



A fita FUNQOES I e comercializada pela MICRON de 
Sao Jose dos Campos (av. Sao Joao, 74) e tem como 
principal finalidade a de ampliar o sistema operacional 
do TK com algumas funpoes adicionais extremamente 
uteis. Vem acompanhada de urn manual que, se peca urn 
pouco pelo aspecto grafico, compensa isso amplamente 
pela boa did^tica empregada nas instrupoes. 

Ao ser carregado normal mente o programa ]A sai ro- 
dando apresentando o menu da fig. 1 . 






FUNCOES EXTRfiS 



PRINT U5R 3; 



__ 5/ URRIfiUES E 

>443 



UD - 



INCLUR NO PROGRRMR , 

LET L=U5R 324.65 
E ELE 5ERR RPRGRDO DE5TR 
LINHR RTEH O FINRL 



INCLUh NO PROGRRHR; 

1 REM ** 

2 LET L =USR 32333 

3 LIST 

IMPORTRMTE; LINHR 1 REM CONTEM: 
2 ESPRCOS / 1 GRP.FICO, 1 E5PRCO. 

USE__POKE 16516,1 OU 5 OU 10. 



REPPODUr IP 



r/IGITE NEW 



*«9. i y 



Apos ler as instrupSes, o usu^rio deve digitar NEW: 
o programa se auto-carrega no ultimo Kbyte dos 16K de 
RAM. 

Para testar a fita carregamos no computador o pro- 
grama MINMNVASOR com o programa RENUME- 
RANDO "enganchado" no fim (publicados, ambos, no 
numero 1 da MICROHOBBY). 

A primeira tarefa da fita FUNQOES foi a de eliminar 
o programa RENUMERANDO do fim do MINI- 
INVASOR. 

Como o programa MINMNVASOR termina na linha 
1 135 e o RENUMERANDO comeca na linha 9959, bas- 
ta entao acrescentar a linha 



1136 LET L=USR 32465 

e a seguir 

GOTO 1136 



Em poucos segundos o RENUMERANDO em BASIC 
desaparece, deixando apenas o programa MINMN- 
VASOR. 

A seguir testamos o RENUMERANDO da propria 
fita (em ASSEMBLY). Para isso devemos acrescentar 

1 REM 

2 LET L-USR 3200© 

3 LIST 

A linha 1 REM deve contar 4 espapos em branco. 

A seguir devemos comandar 

OOKE 16516 j N 

onde Neo incremento que queremos dar aos enderepos 
da nova renumerapao ate 20 no mciximo). Como o MINI- 
IN VASOR estava renumerado de 5 em 5, alteramos para 
que o fosse de 20 em 20. 

POKE 16516.. 20 

Rodamos o programinha (com RUN), obtemos a re- 
numerapao desejada num tempo incrivelmente curto! 
Isso ocorre porque, ao contrario do programa RENU- 
MERANDO em BASIC que publicamos no numero 1, 
este e em linguagem de maquina. Finalmente, para saber 
quantos bytes foram consumidos pelo programa basta 
digitar 

PRINT USR 3244© 

Esta rotina pode ser alterada fazendo-se 

POKE 32444.. R 
onde A deve assumir os seguintes valores: 

A = 20: consumo de programa, video e 

variaveis 

A = 28: idem acima mais pilha de calculador 

A = 1 2: so o programa (volta ao original) 

Em resumo, esta fita cont6m uma ti'pica rotina "fer- 
ramenta" extremamente util para programadores. Sua 
utilidade ficou evidenciada quando percebemos que ela 
entrou no dia-a-dia dos nossos analistas de SOFTWARE 
aqui na redapao. n 
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Nos da MICROMEGA PUBLICAQOES E MATE- 
RIAL DIDATICO LTDA., editora da revista MICRO- 
HOBBY convidamos todos nossos leitores e assinantes 
a visitar nosso espago na III Feira da Informatica a se 
realizar de 17 a 23 de outubro, no Parque Anhembi, 
em Sao Paulo. 

Na ocasiao sera distribuida uma tabela-brinde espe- 
cial aos novos assinantes. Os assinantes antigos tamb^m 
poderao retirar este brinde, entregando, na feira, a eti- 
queta de enderegamento colada no envelope deste nu- 
mero 4. 

Albm disso, no nosso stand vamos apresentar uma 
s6rie de novidades para o TK: a nossa f inalidade 6 a de 
incentivar pequenas empresas a produzir perif^ricos e 
acessorios para o TK, ampliando cada vez mais sua uti- 
lidade e desempenho. Vamos ter tamb^m sorteios inte- 
ressant fssimos, demonstragoes de novos equipamentos 
e langamento de livros para o TK. O 

A Memphis, empresa paulistana, lider no mercado 
de suprimentos para computadores, vem se projetando 
e se firmando ha 14 anos em todo o Territorio Nacional. 

Com a finalidade de manter o seu maior lema "Produ- 
tos de Qualidade a Pregos Justos", e para melhor aten- 
der a sua exigente clientela e a todos os seus amigos e 
habituais fornecedores, acabou de mudar sua Matriz 
para urn moderno prbdio situado a Av. Angelica, 35 no 
bairro de Santa Cecflia, com uma area de 4.000 m 2 , 
contando com amplo estacionamento. 

Nesse local estarao funcionando os Departamentos 
Administrative, Financeiro, Estoques, setor Fabril e 
tamb^m o C.P.D. (que a partir de agora agilizara ainda 
mais o atendimento aos clientes). 

0 Departamento de Vendas continual atendendo aos 
seus clientes em seus escritbrios a Av. Arnolfo de Azeve- 
do, 108 - Pacaembu pelo telefone 262-5577 em Sao 
Paulo e no Rio de Janeiro a Praia do Flamengo, 66 gru- 
po 1.519 pelos telefones 205-3849 e 225-3469. 



"Novo ABC dos Computadores" de Allan Lytel e 
Carlos Alberto M. Marques, e o mais recente langamento 
da editora "Antenna" (C.P. 1131 — Rio de Janeiro — 
CEP: 20001). £ urn livro especialmente escrito para as 
O 



pessoas que desejem ingressar no mundo da informatica, 
seja com final idades profissionais, seja para quern possua 
ou pretenda possuir urn microcomputador, prestando-se 
igualmente, aos autodidatas, e, como livro auxiliar, nos 
cursos de iniciagao ao Processamento de Dados. 

Compoe-se de 12 capitulos: Computadores Digitais e 
Analogicos - Numeros para computadores — Operagoes 
Aritmbticas — Logica Simbolica - Circuitos Logicos B3- 
sicos — Multivibradores — Contadores — Circuitos Cal- 
culadores — Circuitos Integrados — Armazenamento de 
Dados - Dispositivos de Entrada e Saida - Programa- 
gao. £ redigido em linguagem acessivel aos iniciantes, 
constando de 176 pciginas, com bastante ilustragoes, no 
formato 13,5x21 cm. £ vendido nas boas livrarias ao 
prego de Cr$ 3.500,00 o exemplar. o 

A Computronix, uma loja de microcomputadores de 
Belo Horizonte esta langando o teclado profissional para 
o TK82-C e o NEZ 8000. Trata-se de caixa em madeira 
ou fibra de vidro que comporta o aparelho, a expansao 
e a fonte internamente, operando-se em teclado tipo 
IBM e um vi'deo 12" por cima da caixa. Maiores infor- 
magoes: fone: (031 ) 225-3305. q 

A MICRODIGITAL langa o TK83, versao sofisticada 
do TK82-C. Seu desempenho como computadorb iden- 
tico, tendo as mesmas caracteri'sticas operacionais de seu 
antecessor. Do ponto de vista estbtico, porbm, ele apre- 
senta um "design" muito mais moderno e funcional. 
A nova caixa 6 mais resistente, tornando os circuitos in- 
ternos menos vulneraveis a pressoes mecanicas. O "hard- 
ware" foi redesenhado implicando num projeto mais ele- 
gante e compacto. 

Com esse langamento, a MICRODIGITAL mostra to- 
da a confianga que deposita na antiga mdquina, dissipan- 
do de vez os temores de "obsolencia" apresentados por 
alguns usu^rios quando do langamento do TK85. 

O TK82, agora 83, veio para ficar durante muito tem- 
po, ainda: a relagao desempenho/custo 6 ainda (e parece 
que sera por muito tempo) a mais elevada do mercado 
nacional. 

Num mercado com muitos "cadillacs" enfeitados, um 
"fusquinha" ter£ sempre uma grande aceitagao, especial- 
mente numa bpoca de economia em contengao. 

O 
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PEQUENOS 







ANUNCIOS 



Vendo esquema completo do microcomputador 
NEZ8000 (com SLOW e expansao de memorial — 3 co- 
pias heliogrbficas. Cheque nominal de Cr$ 6.000,00 pa- 
ra JAN MARTIN LUND, Rua Frederico Ozana, 16/21 — 
1 1 100 — Santos — SP. 

Troco ou vendo programas (nacionais e importados) 
para os micros: CP-200, TK82-C e ZX 81. Possuo o Si- 
mulador de Voo, Turbo, Galaxy e muitos outros jogos 
e aplicativos. Tratar com Eduardo Medeiros — R. Eliseu 
Guitherme, 1076 - Ribeirao Preto - SP — CEP: 14 100 

— Atendo tambbm por reembolso. 

Vendo ou troco programas de jogos para TK82-C e 
TK85. Tratar com Edson, R. Guariba, 54 - Sao Paulo - 
Tel.: 918.0998 (c/ Ruth). 

RADIO MICRO: O primeiro grupo de r^dio amadores 
digitais do Brasil convida todos os radioamadores a co- 
nhecer os projetos de hard e soft que estamos desenvol- 
vendo, aos interessados entrar em contato com PY2-EMI 
Renato Strauss — R. Cardoso de Almeida, 654/32 — 
05013 — Sao Paulo — SP. 

Colocamos vi'deo-reverso em televisores TX-Philips, 
fazemos adaptapoes de TV's para monitor de video e 
vendemos kits de vi’deo-reverso. Luiz Wellington - Tel.: 
224-2776 — Fortaleza/CE. 

Vendo programas nacionais e importados, 2K e 16K, 
BASIC, e ASSEMBLER para micros TK82-C e similares 
(Aceito trocas) - Carlos A. Sciaretti - Cx. Postal: 5567 

- Sao Paulo /SP - CEP: 01051 - tel.: 522-8586. 



Curso de Linguagem de m^quina para TK82 e TK85 
(ASSEMBLY Z80). Aos sbbados das 9:00 £s 13:00 hs. 
— Sao Paulo — Fone: 813-4555 (Marcia) a tarde. 

Servipo de Datilografia — IBM. Teses, apostilas e ma- 
nuals tecmcos. Telefone: 258-8486 — Amirico — SP. 

Conversor do NEZ8000 para SLOW: Em Sao Paulo, 
WILSON DE ASSIS faz a inclusao desta funpao no 
NEZ8000 por Cr$ 20.000,00 (mais as despesas de em- 
balagem e correio) e dci a garantia de 6 meses. Se o seu 
enderepo for proximo ao dele, ele entregar^ em casa. 
O seu telefone 6: (Oil) 203-7967 e o endereco: Rua 
Fabricio Correia, 145, Tucuruvi, 0231 1 — Sao Paulo - 
SP. 

Sou possuidor de muitos programas para o TK82. Os 
interessados em tr oca -I os escrevam para Marco Aurilio 
Dias de Oliveira — A v. A fonso Pena, 1557 - Bloco B — 
apto. 214 — Campo Grande/MS — CEP: 79100. 

Troca de programas para TK — Carlos HorScio C. 
Fontenelle — R. Alfeu Aboim, 770 — Aldeota — Forta- 
leza -CE- CEP: 60000 

ESPlAO - Jogo de Aventura para TK e CP- 200. Urn 
desafio a sua Membria e Habilidade. 16K com SLOW. 
Cr$ 5.000,00. Pedidos pelo reembolso para Cx. Postal: 
28 - 27200 - Pirai - RJ. 

Vendo NEZ 8000 com expansao de 16K — Tenente 
Dilson — Tel.: (061) 224- 1839 — Brasilia — DF. „ 
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COMO COLABORAR 
COM MICROHOBBY 



A revista MICROHOBBY foi criada para servir de in- 
tercambio entre os leitores que participam do magico 
mundo da computagao 

A caracteristica realmente inovadora do computador 
pessoal, esta em transformar cada consumidor num cria- 
dor. Aproveite sua criatividade e envie suas colabora- 
g5es, recebendo remuneragao a titulo de DIREITO 
AUTORAL. 

Se o material enviado for aprovado para publicagao, 
a remuneragao sera de Cr$ 10.000,00 por programa. Se 
o programa for muito bom e muito extenso esta quantia 
sera aumentada, a crit^rio da redagao, at6 Cr$ 30.000,00. 
Esta remuneragao sera oferecida tamb£m para artigos 
interessantes sobre o mundo do TK 

A maneira ideal de nos enviar o material a ser publi- 
cado obedece as segumtes normas: 




O material nao utilizado nao sera devolvido Esta e 
uma norma corrente em quase todas as revistas do mun- 
do, que gera porem, uma certa desconfianga: "e se apa- 
garem meu nome do programa e o publicarem sem me 
remunerar?" 

Neste ponto podemos sugerir o seguinte 

Ao enviar o material para qualquer revista, voce, ou 
confia em sua seriedade, ou, e melhor nao enviar o ma- 
terial, reservando-o para uma publicagao digna de seu 
credito. 

Uma outra saida e a de tirar uma copia de todo ma- 
terial enviado e registra-lo em cartorio, para qualquer 
reclamagao posterior Obviamente tal procedimento s6 e 
aconselhavel se o material enviado for valioso a ponto de 
justificar toda essa mao de-obra. 



1) Nunca esquecer de colocar nome completo, enderego 
e numero de sua assinatura em todo material enviado (fi- 
tas, listagens de impressora, envelope, carta, etc). 

2) Enviar a listagem de programa datilografada ou, me- 
lhor ainda, tirada na impressora do TK 

3) Colocar sempre uma linha REM com o nome do autor 
e o titulo do programa. 

4) Enviar uma fita com o programa gravado algumas ve- 
zes (se possi'vel em gravadores diferentes). 

5) Na fita, gravar com microfone (em viva voz), algumas 
instrugSes uteis, nome completo e enderego do reme- 
tente. 



GERACAO HUMANA NO TK 

Antes que o leitor se assuste com visoes tipo "Admi- 
rrivel Mundo Novo'' pedimos a leitura da parte final da 
carta que o Roberto R. Matcher de Obidos (Par3) enviou 
dSegao DESGRILANDO. 

A proposta, pelo que pudemos entender, consiste 
basicamente em se tentar estabelecer uma correlagao en- 
tre data de nascimento da mae, dos filhos e o sexo 
destes. 

Para quern achar absurdo, queremos lembrar que M 
alguns anos foi realizada na Franga uma pesquisa que 
tentava correlacionar o Q.l. de criangas com outros fato- 
res. Verificou-se uma correlagao estatisticamente signifi- 
cativa entre o Q.l. e a 6poca do nascimento: criangas 
nascidas no comego do inverno tinham um desenvolvi- 
mento intelectual significativamente superior. Foram le- 
vantadas muitas hipoteses (chegou-se at6 o absurdo de 
se falar em horoscopo!). A explicagao na realidade e 
bem simples: no inverno europeu os pais ficam mais 
tempo em casa e essa maior convivencia e tremendamen- 
te importante para o futuro desenvolvimento mental do 
bebe. 

Por isso pedimos a todos os leitores que tirem uma 
xerox da tabela anexa (para nao recortar a revista) e a 
enviem preenchida para: 



6) O material deve ser enviado para: 

MICROMEGA P M D. Ltda 
PROGRAMAS DO LEITOR 
Cx POSTAL: 60081 
CEP 05096 - S PAULO - SP 

7) Qualquer duvida, poder^ ser esclarecida pelo telefone: 

(01 1 ) 257-5767 com Roberto. 

Aguardamos sua colaboragao. 
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come moedas fazendo uma lament^vel confusao entre 
piano espiritual e piano material. 

Para se movimentar no salao (tenebroso) do castelo 
voce deve usar as teclas 5, 6, 7 e 8 ou o mddulo de co- 
mando (Joystick). 

Ao ter sua alma congelada pelo fantasma, aparecer^ 
a quantia coletada. 



10 LET S=0 
20 CLS 
30 INPUT R 
4.0 LET Q = 1 
50 LET U=1 

60 LET R = I NT (RND *7) +1 
70 LET E = INT (RND+7) +1 
80 FOR F = 1 . 

100 next T f **'********* 

110 IF INKEY$="P" THEN GOTO 20 
120 PRINT RT 

130 IF PEEK (PEEK 16398+256tPEE 
K 16399) =155 THEN GOSUB 230 

14-0 LET 0=0+ ( INKEY$ = "6" AND Q<8 
> - ( IHKEY$ = "7" RND Q>1) 

150 LET U=U+ ( INKEY$="8" RND U<8 
) - ( INKEY* = "S" RND U>1) 

160 IF 0=R RND U=E THEN GOTO 26 

0 

170 IF RND <R THEN GOTO 110 
180 PRINT RT R.EjCHRf 11 
190 IF PEEK (PEEK 16398 +256 + PEE 
K 16399) =128 OR 155 THEN PRINT R 
T R . E ; "H" 

200 LET R=R+ (O >R) - (O <R) 

210 LET E=E+ (U>E) - (U<E) 

220 GOTO 110 
230 LET S=S+1 
24.0 PRINT RT O . U ; 

250 RETURN 
260 PRINT S 



O que voce 
deve fazer para 
realmente 
entender de micros? 



Uma assinatura de 
MicroMundo. 



Veja so o que voc§ 
encontra em cada 
exemplar de 
MicroMundo: 
Noticias... Dicas de 
Compra... Benchmark 
(analise e testes de 
equipamentos)... 
Lanpamentos de 
Hardware e Software... 
Analise de Software... 
Fontes (programas 
para todos os tipos 
de micros)... Tecnicas 
& Tecnicos (macetes 
classicos em Cobol)... 
CP/M & Cia... 
e mais, muito mais. 

Fapa como quern 
entende - assine 
MicroMundo. 



mo Certificado especial de assinatura ^ 



SIM desejo receber 12 edigoes do MicroMundo (um ano) 



Nome. 



Cargo_ 



Empresa. 



Enderevo . 



.Tel. 



CEP. 



.Cidade 



. Esiado 



O cndcrev'o acima e □ meu enderev'o pariicular 
(Marque com «mXi Q en( j erc ^ 0 de m inha empresa 

CWB - ComputarwoHd do Brasil. Service* • Publicacdas Ltda. 

«.o Ru.AlcrxJoGuaoato^. CCP 70031 T.i 1021 1 240877* T.l,, 1\ 30838 Word BR 

S*o Pmu to Aua 79 Jard.m Pauhsia CEP01406 Tel (0111 8816844 Ta(a> 1 1 3201 7 Word BR 



Envio ancxo cheque nominal a 
MicroMundo no valor de 7.200 00 



O FANTASMA 



Voce est2 no tenebroso salao de um castelo mal- 
assombrado. Voce conseguiu achar um tesouro e as moe- 
das estao espalhadas no chao. Antes que o fantasma do 
castelo gele sua alma pecadora, voce deve catar a maior 
quantidade possivel de moedas (as da moldura nao 
podem ser recolhidas). 

Ap6s digitar RUN voce deve escolher o grau de difi- 
culdade, entre .01 (diffcil) e .99 (f3cil). 

0 programa roda usando menos de 1 K de RAM em 
SLOW. 

0 fantasma e um pouco gag3 e, enquanto o persegue. 
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CURSO DE ASSEMBLY 



aula 3 



5101100111111 
511011 110 100 G 
i i 1111 

J000Ol r 
Jill 10 r 
001000 ' 
011103 

.leme 

11101^ 

0000 1W501 10100 
0000 100110010 
0000 100000101 



Flavio Rossini 



0 PROGRAMA HEXAMEM: ONDE COLOCAR OS 
PROGRAMAS EM LINGUAGEM DE MAQUINA 

Um bom lugar para colocar os programas em lingua- 
gem de m^quina 6 no fim da memoria RAM pois, como 
\i dissemos, o im'cio da memoria RAM e reservada para 
colocar as vari^veis do programa interpretador, o progra- 
ma BASIC e suas vari^veis e a tela de TV(Veja p3g. 23). 
Entre as varteveis do programa interpretador esta uma 
chamada RAMTOP que indica o fim da memoria do 
computador, ou seja, nos registros da memoria corres- 
pondentes a essa vari^vel o programa interpretador colo- 
ca o enderego que seria do byte imediatamente apos o 




IOPLAK: Placa In/Out, transforma o seu TK numa 
central de comando programado, com 8 entradas 
e safdas. Controla relSs, motores, trenzinhos 
etetricos, etc. 

BIPLAK: Placa Bip, assegura teclagem correta por 
aviso sonoro. Pode ser programada para assinalar 
passagens de jogos, agoes de programas e muito 
mais. 

CARAPLAK: Placa de Caracteres, produz os 
grafismos que V. quer e os introduz em qualquer 
programa. E um sucesso na microcomputagao dos 
E.U.A. e da Europa. 

Escreva hoje mesmo, informando qual 6 a placa 
TplaKdo seu interesse, para receber informagdes 
mais detalhadas. Isso Ihe assegura um brinde 
especial que V. receber^ depois, quando fizer sua 
encomenda. 

Envie sua carta para: INFORMAgdES tplak 

A/C R.G. 

Rua Joao Ramalho, 1 276 
CEP 05008 Sao Paulo SP 



.00000011^ 
.11011001011 
51001' 00101 
5110C L100J 

>01OE 1110' 

*^011110110'* 
^00000311 

1101. 

0112/ ©111 

1110 0000 

0100L a!011 

^00060110010? 
^110101111^ 



.1011 
.06100 
00 100 ‘ 
L0110 

10003 
0010C 
1000C 
0010% 
10© ia 
50111 



101b. 
11110V 
• 1011© 
101©. 
10111 
30160 
1100C 
10101 
1001C 
0110' 



01111 11011 
''0111101003' 

' 11100011 ' 

• ,-5% r* » ~ 



ultimo byte de memoria. Esta vari^vel est3 colocada nos 
enderegos 16388 e 16389, pois sendo ela um enderego, 
tern 16 bits devendo entao ser "quebrada" em duas par- 
tes para poder ser armazenada, armazenando-se antes o 
byte MENOS signif icativo (esta regra 6 usada para todos 
os dados de 16 bits! ). Assim digite: 



PRINT PEEK 16388 + (256 * PEEK 16389) 
(NEW LINE) 



(Consulte a aula 1 em caso de duvida) 

Voce obtem o valor de RAMTOP que depended de 
quanta memoria voce tern dispom'vel. Se voce tiver a 
expansao de 16K (suposigao que serd v^lida para todo o 
curso) dever3 obter: 

RAMTOP = 32768 ('8000' em hexadecimal) 

o que significa que o enderego do ultimo byte da memd- 
ria d 32767 ('7FFF' em hexadecimal). 

Vamos, entao, "enganar" o computador e modificar 
o valor esta varidvel com o intuito de reservar o fim da 
memdria RAM para la colocarmos os programas em lin- 
guagem de mdquina, sem prejudicar o resto da memoria. 

Por exemplo, fagamos RAMTOP = 30000 ('7530' em 
hexadecimal), lembrando que devemos colocar antes o 
byte menos significativo ('301. Digite: 



POKE 16388,48 (48 = '30' em hexadecimal) 

(NEW LINE) 

POKE 16389,117(117= '75' em hexadecimal) 

(NEW LINE) 

NEW 

(NEW LINE) 



o que corresponde a fazer 

RAMTOP = 256 * 117 + 48 = 30000 

(verifique isto usando novamente a fungao PEEK para 
obter o valor de RAMTOP). 

Deste modo voce reservou a memoria 30000 ate 
32767 para colocar seus programas no computador, suas 
varidveis e o conteudo da tela de TV NUNCA irao inva- 
dir esta regiao por "pensar" que a memdria termina no 

continue 
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LANQAMENTO 



PASSAQEM PARA 0 INPINITO 

Sensacional jogc onde voce tentarA encontrar e sair com um fabuloso lesouro em um 
complexo labirinto, guardado por ternvms polvos monstros, e com mass de 400 pas 
bos Para ajudA lo voce contara com algumas espadas que garantirAo sua sobrevi 
vAncia na lute com os monstros. e com os pnsioneiros encarcerados nas vanes pas 
sagens que Ihe mdicarAo o caminho a seguir Totalmente em ltnguagem de mAquma 
com grAficos fan test icamente animados e trAs niveis de dificuldade para desafia lo 
Prego Cjt 7 000.00 

MIDWAY 

Uma grande guerra mundial esta sendu travada nas agues do AtlAnuco Voce agora a 
o comandante do submarine aidmico MIDWAY, sua missAo destruir todas as bases 
immigas em aguas brasileiras Cuidado com os navios avirtes e mmas espalhados pe 
los invasores Para auxillA lo podera contar com uma frota de navios de reabasteci 
mento. vanes bases aliadas e um computador de bordo Um grande desafio com gr4 
ficos e varies rotinas em Imguagem de maquina Prego Cr$ 5 000 00 



■ JORNADA NAS ESTRXLAS 



A sua nave interplanetAna t;NTP.EPRISE necessita livrar a galAxia dos invasores 
Klingori e voc6. como comandante da nave tera a Ardua missAo de destrui los Um 
jogo famoso no mundo todo em uma de suas melhores yersOes pela Softkristian , com 
efeitos graficos sensacionais Prego Cr$ 5 000.00 



s.* dimens Ao- 



Agora vocAjApode ter um fliperamaem seu microcomputador em2* DIMENSAOdois 
jogos agitadlssimos para testAr sua coordenagAo motors Em SPACE INVADER vocA 
tern os originals invasores atacando sua nave e em ASTEROID vocA deve pousar em um 
planeta e para canto deverA ultrapassar os obstaculos que vAem A sua f rente tentando 
destrui lo Grandes jogos em Imguagem de mAquma Prego Crt 5 000,00 



VISITA AO CASSINO 



Quatro grande6 jogos em um 3b cage ruqueis roleta. 21 e perseguigAo fatal fazem 
parte deste sensacional conjunto Todos os jogos com graficos e rotinas em hnguagem 
de mAquma, para vocA que gosla de apostar e torcer Prego Cr| 5 000.00 



■10 JOGOS EXCIXANTES PARA 1 K- 



Dez pequenos jogos para vocA tncrementar e aprender bast&nte os efeitoB de progra 
magAode jogos e trabalhos com video SevocAnAodiBpOedaexpansAode 18 K jApode 
rA ter entretemmento com esta sensacional f ita Se vocA ja dispOe de 16 K compre para 
increment* los e tera excelentes Jogos Prego Crt 4 000 00 



Compte conosco de ouaiquer parte do Bravi sem 
despesas adiconais envtanoo um cneque tru/a 
doe nominal a KRISTIAN EUlRQNiCA i tea into 
preosa visat > e ga<ania o leceDimenio de nosso 
mlormalivo NOViDADfS KRiSUAN lotaimenie 
graludo 



'ISII30J 

EUTRONCAlTD*--^ 

Rua da Lapa, 120 grupo 505 
Tels 252 9057 232 5948 
CEP 2002 1 Rio de Janeiro RJ 



Todas as fitas vAoemembalagem lacrada. com gravagAoprofissional. para sua garao- 
tia. A Kristian trocarA qualquer fits que seja enviada. com defeltos de fabricagAo 



enderego 29999 (752F' em hexadecimal). Note, toda- 
via, que esta regiao NAO sera afetada pelo comando 
NEW e nao pode ser passada para a fita atravds do co- 
mando SAVE. Esta ultima limitagao d desagraddvel e 
mais adiante veremos como contornd-la. 

(OBS.: caso voce nao tenha expansao de memdria use: 

POKE 16388,173 
POKE 16389,67 
NEW 

para reservar a regiao de 1 7325 a 1 8431 ). 

Vamos, a seguir, apresentar um programa em BASIC 
que coloca na memdria RAM um programa em lingua- 
gem de maquina elaborada em codigos hexadecimais a 
partir de um enderego inicial fornecido por voce. Lem- 
bre-se de reservar espago no fim da memdria antes de 
colocar o programa: 

POKE 16388,48 (NEW LINE) 

POKE 16389,117 (NEW LINE) 

NEW (NEW LINE) 

A seguir coloque HEXAMEM no computador e vamos 

introduzir alguns codigos hexadecimais (que por 
enquanto nao significam NADA) dentro do compu- 
tador! Cada codigo deve ser seguido de NEW LINE, e o 
programa termina ao introduzir-se a letra P (PARE). 



PROG. 1.1: HEXAMEM. 



1 REM FLRUIO ROSSINI 
5 REM HEXfiMEM 
10 F RSI- 

15 POKE 16368 . 4© 
a© POKE: 16359,1I? 

as PRINT *• ESCOLHfl O ENDERECO I 
N1DIRL DR" 

30 PRINT " MEMORIR 0=30000) *' 
3S INPUT IN 
40 PRINT 

4S PRINT " MEMORIR INICIRL = " ; 

IN 



5© LET IN X = IN 
55 LET R$ = "" 

50 SCROLL 

65 PRINT 'MEM. IN; 

70 IF R* = "" THEN INPUT R$ 

75 IF R$="P” THEN STOP 
80 IF R*=”XS" THEN GOTO 0130 
85 IF fl$ = , 'XF" THEN GOTO 0135 
90 LET RUXe 16 tCODE R$+CODE h$ ( 
2) -476 

95 LET X $ =STR$ (16*CODE R$+COD 
E -476) 

100 GOSUB 0200 

105 PRINT TRB 13.; C$; ;TRB 24; R 
St TO 2>..TRB <31— LEN X$);X« 

11© POKE IN.RUX 
115 LET IN=iN+l 
120 LET R$=RJ t3 TO ) 

125 GOTO 0060 
13© SLOU 
135 CLS 

140 PRINT AT 3,B;U3R INI 

145 STOP 

200 LET 1=1 

205 GOSUB 0500 

210 LET 1=2 

215 LET C$=B$ 

220 GOSUB 0500 
225 RETURN 



50© 

000“ 


IF 


R* ( I) 


= "0" 


THEN 


LET 




505 

001“ 


IF 


R$i ( I) 


— ii n %» 


THEN 


LET 


0? 

II 

Q 


510 

010“ 


IF 


R* ( I) 


= •‘2“ 


THEN 


LET 




515 

011“ 


IF 


Rfi Cl) 


= “3“ 


THEN 


LET 


B$ = "0 


520 

100“ 


IF 


R$ ( I) 


= 4" 


THEN 


LET 


B$ = “0 


535 

101“ 


IF 


R$ < I) 


= “5 " 


THEN 


LET 


B$ = “0 


530 

110“ 


IF 


R$ ( I) 


= “ 6 " 


THEN 


LET 


B$ = ,, 0 


535 

111“ 


IF 


R$ CD 


= *•7“ 


THEN 


LET 


B$r = “© 


54© 

000“ 


IF 


R$» (I) 


= “ 8 “ 


THEN 


LET 


B$ = " 1 


545 

001“ 


IF 


CD 


= “9 “ 


THEN 


LET 


B$ = " 1 


550 

010“ 


IF 


R$ CD 


= “R“ 


THEN 


LET 


= “ 1 


555 

011“ 


IF 


R$ C I) 




THEN 


LET 


B* = “l 


560 

100“ 


IF 


R$ ( I) 




THEN 


LET 


©* = "1 


565 

101“ 


IF 


R* C I) 


= ** D “ 


THEN 


LET 


©$ = ** 1 


570 

110“ 


IF 


R$ C I) 


= “E“ 


THEN 


LET 




575 

111“ 

560 

565 

600 


IF A$tI)="F" THEN 

RETURN 

STOP 

SPUE ••HEXRMEEB" 


LET 


B$=“ 1 


610 

620 

630 


PRINT "DIGITE BREAK E 
PRUSE 300 
GOTO SO© 


L 1ST •* 
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VERBATIM 




PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFICA: 

QU ALIDADE COM 5 ANOS 
DE GARANTIA E O MELHOR 
PRECO DO MERCADO. 



DATALIFE ' diskettes sao produzidos com uma unica 
preocupacao: o armazenamento de dados sem erros. 

Esse comprometimento requer precisas tecnicas 
de producao e rigoroso controle de qualidade. 

DATALIFE ' diskettes 8 ou 5 1 /4 polegadas tem 
certificacao 100% sem erros. 

A diferenca DATALIFE ' e pura e simplesmente qualidade. 



ENtREGA IMEDIATA 



FD 34 9000 


simples face/ simples densidade 
26setores 128 bytes setor 8 polegadas 


FD 34 8000 


simples tace/dupla densidade 

N3o setorizado n3o formatado 8 polegadas 


DD 34 4026 


dupla face/dupla densidade 
26setores 256 bytes /setor 8 polegadas 


DD 34 4001 


dupla face/dupla densidade NSo setorizado 
n3o formatado 8 polegadas 



Entrega a partir de setembro 1 983 



MD 525-01 


simples face/dupla densidade 
5 1/4 polegadas 


MD 550-01 


dupla face/dupla densidade 5 1 /4 polegadas 



Em embalagem de cartao com 10 umdades 
Caixas pl^sticas opcionais 



PARA ENCOMENDAS FORA DE SAO PAULO, 
Revendedores e Fabricantes interessados: A MEMPHIS PAGA A LIGACAO. 

tel: (01 II 262-5332 DISQUE (01 1) 8008462 



Distribuidor: UleinplllS 

Industria e Comercio Ltda. 

Av. Arnolfo de Azevedo, 108 - Pacaembu - Sao Paulo - Brasil 
CEP 01236 - PABX (011) 262-5577 - Telex (011) 34545 
Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849 - 225-3469 
Matriz: Av. Angelica, 35 - Sta. Cecilia - Sao Paulo - Brasil - CEP 01227 





OBS.: Se voce NAO tiver expansao de membria, substi- 
tua a linha 30 por PRINT "MEMORIA" (> = 17325)", 
retire as linhas 95,100 e de 200 a 580, substituindo a li- 
nha 105 por PRINT TAB 13; A$ (TO 2); TAB 17; AUX. 

Este programa fornece, tambem, uma "visual izapao" 
da memoria do computador na tela de TV da seguinte 
maneira: 



MEM. 


N9 DA MEM. 


CONTEUDO 


CONTEUDO 


CONTEUDO 




EM 


DA MEM EM 


EM 


EM 




DECIMAL 


BINARIO 


HEXADECI 

MAL 


DECIMAL 



Experimente, entao colocar alguns nds hexadecimais 
na memdria a partir do enderepo 30000. Lembre-se que 
cada enderepo da memdria corresponde a 1 byte de da- 
dos. Portanto, voce deve entrar sempre com um numero 
par de di'gitos hexadecimais, caso contr^rio, o programa 
parard na linha 90. Assim, entre, por exemplo, com o se- 
guinte: (N.L. = NEW LINE). 

RUN (N.L.) 

Memdria inicial: 30000 (N.L.) 

A4 (N.L.) 

B70412 (N.L.) 

06 (N.L.) 

71FDA1 (N.L.) 

00CE (N.L.) 

P (N.L.) 

Na tela, voce deverd obter: 



MEM. 


30000 


18160100 


R4 


184 


MEM . 


30001 


10110111 


67 


183 


MEM. 


30003 


00000100 


04 


4 


HEM. 


30003 


00010010 


12 


IS 


HEM. 


30004 


00080110 


08 


6 


HEM . 


TOQ05 


01110001 


71 


113 


HEM. 


30000 


11111101 


FD 


253 


HEM . 


30007 


10108001 


R1 


181 


HEM . 


30008 


00000000 


0© 


0 


MEM . 
MEM . 


30000 

30010 


11001110 


CE 


208 



Com isso, voce colocou estes dados da memdria 
30000 ate a memdria 30009. Vamos verificar se o pro- 
grama funcionou. Acrescente, agora, o seguinte progra- 
ma: 



3000 REH UERMEM 
3005 SLOU 

3010 PRINT “F IM = '>’• 

3015’ INPUT FIM 

30S0 FOR 1=30000 TO FIM 

3025 SCROLL 

3030 PRINT "HEHORIR- .1; " “ ; PE 

EK I 

3035 NEXT I 



NOTA: Se voce nao tiver expansafo de memdria, substi- 
tua a linha 3020 por: 

FOR I = 17325 TO FIM 



PROG. 1.2: VERMEM. 



Execute-o fazendo RUN 3000 (ou GOTO 3000 ). 

Coloque para a variavel FIM o valor 30009 (17334 
sem expansao), pois colocamos 10 di'gitos hexadecimais 
na memdria. Ao executar o programa voce deverb obter 
os numeros previamente colocados, masem DECIMAL! 
Portanto, teremos: 



MEMORIA 


30000 


164 


( = 


'A4') 


MEMORIA 


30001 


183 


( = 


'B7') 


MEMORIA 


30002 


4 


( = 


'04') 


MEMORIA 


30003 


18 


( = 


'12') 


MEMORIA 


30004 


6 


( = 


'06') 


MEMORIA 


30005 


113 


( = 


'71') 


MEMORIA 


30006 


263 


( = 


'FD') 


MEMORIA 


30007 


161 


( = 


'A1') 


MEMORIA 


30008 


0 


( = 


'00') 


MEMORIA 


30009 


206 


( SB 


'CE') 



representagao em hexadecimal; veja os codigos previamente colocados! 

repita este procedimento para outros numeros hexadeci- 
mais ate voce entender o que esta acontecendo. . . 

Note que estamos apenas colocando os cddigos hexa- 
decimais na memoria e mesmo que esses codigos (A4, 
B7, 04, 12, etc.) significassem um programa em lingua- 
gem de mdquina, providencias especiais seriam neces- 
saries para executar o programa. 

Estes cddigos podem representar um programa em 
linguagem de maquina, colocado a partir da memdria 
30000. Por exemplo, o codigo 164 (A4 em hexadeci- 
mal) poderia significar: some os proximos dois bytes 
(183 e 4); o codigo 18 (12 em hexadecimal), compare 
o resultado com o prdximo byte (6) e assim por 
diante. . . 

Note que NAO existem enderegos para as linhas de 
programa, como em BASIC, e as instrugoes sao executa- 
das na sequencia em que foram colocadas na memdria. 

Com todos esses "pordns", quais seriam, entao, as 
vantagens da linguagem de mdquina com relagao ao 
BASIC? 

A linguagem de mdquina e muito mais rapida e permi- 
te um VISUALIZAQAO e um CONTROLE maior do 
sistema. Em contrapartida, suas instrugoes sao mais sim- 
ples e limitadas e exigem um cuidado maior na hora da 
programagao. 



EXERCI'CIOS 

1. Analise o funcionamento do programa HEXAMEM, 
exceto as linhas 130, 135e 140. 

2. Analise o funcionamento do programa VERMEM. 
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INTENSIVAO 
DO ANGLO 



EXATAS, BIOMEDICAS e HUMANAS 
MANHA, TARDE e NOITE 

I 






COMO 



n 




Para tanto, voce devera preencher corretamente 
o cupom anexo, coloca-lo num envelope, junto a um 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICACOES E MATERIAL DIDATICO LTDA., no 
valor de Cr$ 9.900,00 (oferta valida at6 30 de 
setembro). 



O envelope devera ser selado e enderecado £ 



SUA 
ASSINATURA 



A nossa revista nao ser3 distribuida nas bancas. 

Para obter seu exemplar mensal, contendo muitos 
programas para o seu TK, muitas dicas e premios 
interessantissimos, voce devera fazer uma assinatura 
o prego anual da assinatura e de CrS 1 1 .800,00. 
Porem, ate 30 de setembro, manteremos o prego de 
Cr$ 9.900,00, com direito a uma fita inedita de jogos: 
Sao Paulo (IK) 

Mansao Maluca (16K) 

cujo valor comercial e superior a CrS 6.000,00. 



MICROMEGA P.M.D. LTDA. 
Caixa Postal 60081 - CEP 05096 
Sao Paulo - SP 



No verso do cheque escreva: 



"Destina-se ao pagamento de uma assinatura 
(12 numeros) da revista MICROHOBBY" 



Quando este cheque for devolvido ao seu Banco 
com nosso endosso, servira de comprovante provisorio 
ate que nosso recibo seja enviado pelo correio. 



O QUE ESTA RESERVAEO 
PARA O N?5: 



\ b 




OSAPO 



PROGRAMA DO LEITOR: 

HORASIDERAL 

PROGRAMAS DO MES: 



SOMASINTATICA 

trAnsito 

caleidoscopio 



MUITAS DICAS E 
INFORMAQOES 

SEQAO NOVA: 



OS "OITENTAS", 
PARA O USUARIO DO TK 
ENTENDER OTRS80 
E COMPATlVEIS 
NACIONAIS. 



40 MICROHOBBY 








1984... voce esta preparado? 



NiVEL 0 


NiVEL 1 


NiVEL 2A 


NiVEL 2B 


NiVEL 3 


NiVEL 4 


CRIANQAS 


ADULTOS 

E 

ADOLESC 


ADULTOS 

E 

ADOLESC 


ADOLESC 

JOGOS 


ADULTOS 

E 

ADOLESC 


ADULTOS 

E 

ADOLESC 


I0h 


20 h 


20 h 


20 h 


40 h 


40 h 


INICIAQAO 


INICIAQAO 


APROF EM 
APLICAQ0ES 

adm 


APLICAQ0ES 

EM 

JOGOS 


linguagem 

DE MAOUINA 
ASSEMBLY 280 


APROF. DE 
LINGUAGEM 
DE MAQUINA 



Nudeo 

tacao 
estudos 



CORPO DOCENTE: 

PROF. FABIO RENDELUCCI 
PROF FLAVIO ROSSINI 
PROF PIERLUIGI PIAZZI 



Av. Brig. Faria Lima, 1.451 * 3.° * Cj. 31 
Tel : 813-4555 - CEP 01451 - Sao Paulo 



■ 



Desgravador e rejuvenescedor instantaneo 




de fitas K-7 Sistema: PASSOU... DESGRAVOU 

GARANTIA DE 5 ANOS 



PARA 
APAGAR 
BASTA PASSAR 
A PITA IDA E 
VOLTA PELA 
ABERTURA 



micromega 



Twin la o 

* Desgrava e rejuvenesce em apenas 4 segundos, qual- 
quer fita cassete independente de sua durap§o, eliminan- 
do todos os rufdos e chiados decorrentes de frequentes 
regravapdes. 

* Poupa o desgaste da fita e do gravador. 

* Poupa tempo e melhora a qualidade do som da fita casse- 
te na reutilizapSo da mesma. 

* Gravando em cima de outra gravapSo, a qualidade da re- 
produpcto e consideravelmente prejudicada, alem de criar 
confusdes, principalmente se a gravapSo anterior for de 
durapao maiscurta. Desgravando com o TWIN-GO, nada 
disso acontece. 

* 0 TWIN-GO e indispensavel a todos os profissionais e 
amadores, usu^rios de fitas cassete. 

Pedidos por carta 6 

MICROMEGA PMD LTDA. 

Caixo Postal 60081 • CEP 05096 • Sao Paulo-SP 

anexando Cheque Nominal ou Vale Postal, 

incluindo mais despesas de frete no valor 

de Cr$ 500,00, autorizondo o recebimento 

da compra no prazo de 15 dias. 






Caractensticas Tecnicas 

• Linguagem BASIC 

• 10 Kbytes de ROM. 

• 16 ou 48 Kbytes de memdria 
RAM. 

• 40 teclas e 160 fungdes. 

• GravagSo de programas em 
fita cassete comum. 

• Input e Output de dados. 

• Video: aparelhos de TV B&P 
ou colorido. 

• Fungdes especiais 
HIGH-SPEED. 

• Som Opcional. 

• Joystick, impressora. 

Prego de langamento: 

CrS 229.850,00 (16K) 

Cr$ 329.850,00 (48K) 

(Prego sujeito a alteragdo) 



- T ~ *5. US*!** 



fie 6 
» T 



ie 

— tc oi - dos « ( sllX is 01 













REVENDEDORES: ARACAJU 224 1310 • BELEM 222 5122/226-0518 • BELO HORIZONTE 226-6336/225-3305/225-0644/201-7555 • BLUMENAU 22-1250 • BRASILIA 224-2777/225-4534/226-9201/ 
226-4327/242-6344/242-5159 • BRUSQUE 55-0675 • CAM PIN AS 32-38 10/8-0822/32-4 155/2-9930 • CAMPO GRANDE 383-6487/382-5332 • CARUARU 721-1273* CUIABA 321 -81 19/321-7929* CURITI- 
BA 232 1750/224 6467/224-342^/243 1731/223-6944/233-8572/232-1 196 • DIVINdPOLIS 221 2942 • FLORIANbPOLIS 23-1039 • FORTALEZA 226-4922/231 5249/231 0577/231-7013 • FREDERICO 
WESTPHALEN 344 1550 • GOIANIA 261-0333/224-0557 • IJUI 332 2740 • ITAJUBA622 2088* LINS 22 -2428 • LONORINA 22 4244/23-9674 • MACElO 223-3979/221 -6776 • MANAUS 237-1793* MO- 
Gl DAS CRUZES 468 3779/208-6797 • MURIARE 721 1593 • NATAL 222 3212/231 1055 • NITEROl 722-6791 • NOVO HAMBURGO 93 1922/93 3800 • PELOTAS 24-5139 • PORTO ALEGRE 26-8246/ 
21-4189/24-1411/22-3151/24-0311/21 6109/24 7746* PRESIDENTEPRUDENTE 22-2788* RECIFE241-4310/224 8777/224-3436/224-4327 *RESENDE54-1664*RIBEIRA0PRET0 636 0586/634-4715/ 
635-1195* RIO DE JANEIRO 267-1093/252 2050/253-3395/264-0143/259 1516/232-5948/591 3297/222-6088/267 1339/329-4869/228-2650/246-4824/239-5612/542-3849/62-8737 *SALVADOR248-6666/ 
235-4184/247-5717 • SANTAMARIA 221 7120 • SANTO ANDRt 455 49^2/444 7375/454 9283 • SANTOS4 1220/32-7045/35-1792/33-2230* SAOCARLOS71-9424 • SAOJOAO DA BOA VISTA22 3336 
• SAO JOSE DOS CAMPOS 22 3968/22-7311/22-8925/21-3135 • SAO PAULO 853-0164/853 0448/239-4122/36-6961/61 4049/881 1149/258-3954/212-9004/282-2105/212-3888/545-4769/227-3022/ 
864-8200/222-151 1/259- 2600/282-6609/8 13-4555/81 4-3663/826- 1499/521 -3779/270-7442/2 10-7681/8 13-4031 • SOROCABA 32 9988 • TAUBATE 31-4137 • UBERABA 333-1091 • UBERLANDIA 
234-8796* VIQOSA 891 1790/891 2258 *MARILIA33 4109 



